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sm amy UNE NOUVelle forme d'action et d'aventure à essayer immédiatement! | 
PRCAUINE Une nouvelle forme de jeu, avec encore plus d’action, d'animation et de graphismes 
2 sublimes. BOB MORANE doit nettoyer de l'Océan les bases sous-marines de son 


ennemi mortel L’'Ombre Jaune. Avant de rentrer dans son bathyscaphe, il devra éli- 
miner à bord d’un scooter marin un adversaire. Puis se déplaçant à travers les champs 
de mine, ildevrasortiraffronterles plongeurs del’Ombre Jaune, des pieuvres aux atta- 
ques mortelles et surtout les requins à la tactique de combat oppressante, ils tournent 
autour de vous et soudain vous attaquent en une demi-seconde. 
En comparaison, détruire à coups de torpilles les flottes de scooter sous-marin de 
l'Ombre Jaune vous semblera très relaxant mais la moindre erreur se paiera cher! 
ET TOUJOURS EN PLUS LE LIVRE DE POCHE. Constitué d’un roman de Bob 
Morane, d’un guide illustré, d’une BD couleurs 
de 128 pages et d’une histoire dont vous LA MICRO A SON HEROS 
êtes le héros, il vous procurera des heures et des 


heures de jeux et de lecture. "INFOGRAMES N 
Photos ATARI ST © 1988 se" 7: 


Disponible sur : Amiga, Amstrad, PC, Thomson, Atari : 2 disquettes. 
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C'est le printemps ! C'est 
le temps du renouveau ! 
Chez les éditeurs, les 
logiciels et les idées 
bourgeonnent. Dans 
chaque «forêt éditoriale», 
on s'affaire à engranger et 
à préparer les réserves 
d'un été et d'un automne 
qui s'annoncent prospères 
en bilan, associations et 
autres contrats. 

TEO est lui aussi présent 
dans ces «débats d'idées». 
C'est ainsi que nous vous 
apportons le complément 
de phospore et de vita- 
mines de votre ordinateur 
THOMSON. Rangez donc 
vos maladies au placard 
et occupez-vous plutôt du 
VIRUS de votre ordinateur, 
ou bien jouez avec les 
nouveaux 36-15, ou 
encore consultez notre 
cahier juridique. 

Autant d'informations qui 
renforcent la polyvalence 
des Thomson et qui té- 
moignent de leur-vivacité 
sur le marché des 


micro-ordinateurs. 
M.SIBILLE 
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CHRONIQUES 
DOSSIER SIDA 


QUOI DE NEUF CHEZ À 
LES EDITEURS 





REPAIRE 


DROITS ET JURISPRUDENCE EN 
INFORMATIQUE 


COIN DES TEORISTES 
TELEMATIQUE 


Le succès du 
rose pastel 





BOBO 


VIRUS 


TECHNIQUES 
Un serveur sans serveur 


JEUX 


DCE PE “++ 





CHRONIQUES 


EN DIRE, 









LE CHAT FAIT PARLER DE LUI ! amateurs qui veulent FAITES-LE 
améliorer leurs perfor- | AU TELEPHONE 
mances ou tout simple- 
ment passer Un agréa— | C'est en tout cas ce 


ble moment en famille. que vous propose 


Logiciels PCI pour un 
tout petit prix: 580 F 
HT. De quoi s'agit-il ? 
D'une assistance télé- 
phonique bien sûr. 
Pour ce prix-là tout utili- 
sateur d'un des logiciels 
professionnels de la 
maison PCI bénéficie 
d'une assistance illimitée 
en nombre d'appels et 
ce pendant 1 an. De 
plus PCI vous avertit des 
mises à jour, et pour 

85 FHT. Vous les 
recevez chez vous. 

Dans le même temps, 
PCI offre un mois 
d'assistance téléphoni- 


Vendu avec une cas- 
sette audio tirée d'une 
émission de France- 
Culture, HAN 
D'ISLANDE est l'un 
des premiers logiciels 
de jeu audio-visuel. 
Cette adaptation du 
célèbre roman de 
Victor HUGO raconte 
l'histoire d'une ravis- 
sante jeune fille, Ethel 










Les fêtes de fin d'an- 
née sont pour LORI- 
CIELS une période très 
intense. A tel point que 
25% de leur chiffre 
d'affaires a été réalisé 
dans le seul mois de 
décembre. Tels des 


C'était pour l'éditeur une 
#pportunité tout à fait 
intéressante de mieux 
faire connaître son logi- 
ciel auprès du grand 
public, des champions 


LA 


Pères Noël, les 6 repré- 
sentants ont sillonné la 
France pendant tout 
l'hiver, dans les voitures 
à l'effigie de la marque 
bourrées à craquer de 
jeux. À quand les 38 
tonnes aux couleurs 
de LORICIELS? Un 












et de son père Schuma- 
ker dans la Norvège du 
XVIIème siècle, tous 
deux séquestrés dans 
le château de Munc- 
kolm, faussement 
accusés de crime 
d'état. Or Dener, coura- 


que gratuite pour tout 
achat d'un de ses logi- 
ciels de gestion de 
commerce de gros ou 
de détail (INVENTER 
V42, 3900 F HT) ou de 
comptabilité pour arti- 
sans et professions 





geux chevalier, fou 
amoureux d'Ethel va 
tout tenter pour les 
délivrer et prouver leur 
innocence. La cassette 
étant le seul élément 


contenant les preuves | TABANAC 33550 LAN- 


indiscutables de l'inno- GOIRAN TEL. : 56 81 75 
cence des deux prison— 64 


niers. Une idée intéres- 
sante qui permettra 
probablement d'aug- 
menter l'intérêt des jeux 
d'aventure. Reste plus 


et de l'équipe d'Antenne 
2. L'enthousiasme 
suscité par la démons- 
tration confirme le suc- 
cès du jeu d'Armand 
Jammot pour lequel 
LORICIELS espère at- 
teindre les 10.000 
exemplaires. Grâce à 
de puissants algorith- 
mes et au dictionnaire 
de 80.000 mots inclus 
dans la version IBM PC 
et grâce aux différents 










libérales (GENIUS II, 
2900 F HT). Tous ces 
logiciels tournent sur PC 
et compatibles. 


projet qui ne ferait 
pas peur à Gilles 

DAUDIER, le responsa- 
ble de la distribution. 


Logiciels PCI 


Pierre E. GRANGE 


modes de jeux qui sont | qu'à espérer que LORI- 
proposés, ce logiciel CIELS développera une 
s'adresse aussi bien version pour nos 

aux champions qu'aux THOMSON. 
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EN DIET. 


SKISO, 
LE LOGICIEL FOU 


Un petit logiciel de 18 
Ko diablement efficace : 
il permet à 2 logiciels 
fonctionnant sous MS 
DOS de tourner en 
même temps. Impensa- 
ble non ? C'est désor- 
mais possible en 
intégrant SKISO à un 
logiciel que vous avez 
créé (ou un autre fonc- 
tionnant sous MS DOS, 
quelle qu'en soit la 
version). Les utilisations 
en sont multiples : sur 
un logiciel de télécom- 
munication, vous pou- 
vez recevoir des fichiers 
sans vous mettre en 
attente d'appel : ou 
expédier des fichiers 
tout en entrant des 
données. Cela fonc- 
tionne aussi avec les 
traitements de texte, 
gestion... 

ll est commercialisé 
sous 3 formes selon le 
nombre d'implantations 
que vous désirez, de 
15000 à 130000 F HT. 
Un prix qui n'est mal 
heureusement pas 
accessible à toutes les 
bourses. 


N — SOFT 

"avenue du 8 mai 1945 
95200 SARCELLES 
TEL. : (1) 39 92 44 46 





LANKHOR 
PLUS FORT 


Une nouvelle société 
d'édition de logiciels 
vient de voir le jour : 
LANKHOR. Issue de 
l'union des Langlois et 
de KYILKHOR (les 
créateurs de Moriville 
Manor). Leur production 
s'orientera principale- 
ment vers l'Atari ST, 
mais aussi vers les 
Amstrad, Commodore et 
autres Thomson. D'ores 
et déjà une dizaine de 
jeux sont annoncés d'ici 
le printemps dans des 
domaines aussi variés 
que la bourse (Krack). 
l'aventure policière 
(Maupiti Island ), les 
jeux d'arcade (Killdozers 
et Elemental ). NO. jeu 
d'aventure est déjà dis- 
ponible sur Commodore. 


HYDRA MULTIPLIE 
VOS CONTACTS 


Hydra est un système 
de reroutage télémati- 
que. Le reroutage. à 
pour but ,en se bran- 
chant sur code 3615, 
d'accéder au contenu 
d'autres 3615 (jeux, 
services, messagerie...). 
Ceci est désormais 
possible avec tous les 
services hébergés par 
OTELO, le centre télé- 
matique d'Infogrames : 
jusqu'à 800 transferts 
simultanés. 


TOY, C'EST PLUS 
QU'UN JEU 





En entrant dans le 
3615 TOY, vous vous 
retrouvez face à une 
quinzaine de jeux 
primés dont le très 
célèbre Pole Position sur 
lequel vous pouvez at- 
teindre 200 Kmh ! 
Vous pourrez aussi faire 
de l'introspection avec 
la rubrique parapsy. 
Testez votre intellect 
avec le fameux test Q.I.. 
Enfin vous découvrez 
le jeu qui fait fureur 
dans les agences de 
publicité : inventer un 
slogan publicitaire pour 
une marque et gagnez 
un voyage de 8 jours 
pour 2 personnes ! 


INFOGRAPHE 
SUR TO7 


C'est dans Création du 
mois de janvier 88 que 
l'on apprend que le cé- 
lèbre graphiste infor- 
matique (infographe) 
KIKI Picasso a fait ses 
premières créations sur 
un TO7. Faut-il rappeler 
que ces créations 
graphiques et d'anima- 
tions lui ont permis de 
travailler sur les généri- 
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CHRONIQUES 





ques des diverses 
chaînes de télévision ; 
puis des clips (Bas- 
hung...) et autres ravis- 
sements vidéo. Alors, si 
vous vous sentez l'âme 
d'un infographe, n'hési- 
tez plus, investissez 
dans un Thomson, si ce 
n'est déjà fait. 


17 ANS DEJA... 


Cyrille découvre l'in- 
formatique à 11 ans 
sur un petit ZX81. Tout 
en suivant des cours 
par correspondance, 
ce qui lui laisse le 
temps de faire autre 
chose, il décortique le 
basic du petit ordina- 
teur et un an plus tard 
acquiert un Apple Il. 
Dès lors il passe par 
l'inévitable étape du 
piratage de logiciel. 
Puis, toujours par jeu, il 
pénètre les gros ordi- 
nateurs des entrepri- 
ses, y compris celui de 
l'Agence Européenne 
de l'Espace... Quel- 
ques mois plus tard (à 
12 ans) il crée son 
premier logiciel profes- 
sionnel: un programme 
de gestion d'immeu- 
bles, avec pour tout 
salaire un fer à souder. 
Un an plus tard il signe 
chez ORDIGRAMES 
son premier contrat 
pour un programme de 
gestion: CAISSOR,. 
lronie du sort, à 14 ans 
il se retrouve de l'autre 
côté de la barrière et 
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CHRONIQUES 


doit faire face au pira— 
tage de son logiciel. 


LA NOUVELLE 
_a. GENERACTION 





Cyrille connaîtra bien 
sûr l'engouement des 
médias pour ce «jeune 
surdoué de l'informati- 
que»; Engouement qui 
atteindra son apogée 
avec l'interview de Mr. 
François MITTERAND à 
la télévision en 1985. 
C'est pour lui l'occasion 
de faire connaissance 
avec le monde politique 
(ilest aujourd'hui chargé 
de mission au ministère 
de la jeunesse et des 


sports). 


Le style de Cyrille n'a 
rien du «petit génie 
binoclard coincé». 

Son livre est plein 
d'humour et d'anecdo- 
tes sur le monde des 
médias, mais aussi sur 
tout ce qu'il pense de 
l'enseignement (lui qui 
n'a jamais mis les pieds 
dans une école), ou sur 
les handicapés du 
clavier: les «rares» 
personnes qui ne savent 
pas encore se servir 
d'un ordinateur... 


17 ans déjà et livre 
passionnant; qu'est-ce 
que ce sera lorsqu'il 
aura le bac (s'il a le 
temps d'aller le passer). 


«Je n'irai pas jouer 
ailleurs !», 

Cyrille de VIGNEMONT, 
collection COGITE 
éd.R.LAFFONT . 65 F. 


Pierre E. GRANGE 


EUX AUSSI ! 


Ca y est, après Info- 
grames. Loriciels et 
d'autres, la société 
MICROIDS (Parisienne 
malgré son nom) vient 
de jeter l'ancre de l'autre 
côté de l'Atlantique. La 
firme Française s'est 
associée aux Américains 
de BRODERBUND 
Software pour donner 
naissance à un «label». 
Cette association s'est 
déjà avérée fructueuse : 
25 000 copies de Su- 
perbike Challenge 
(grand prix 500 cc 
version américaine) ont 
à ce jour été vendues. 
C'est maintenant au tour 
de Down the Hill Chal- 
lenge (Super Ski améri- 
canisé) d'être lancé sur 
le marché outre-atlanti- 
que. 


DESSINEZ SUR PAPIER 
ET STOCKEZ SUR DIS- 
QUETTE. 


C'est en effet ce que 
propose la firme 
HENGSTLER avec les 


tablettes à digitaliser. 
Ces tablettes utilisent 
le principe du cou- 
plement électrostatique 
(sans danger pour les 
logiciels posés dessus 
par inadvertance). Elles 
sont compatibles avec la 
plupart des logiciels de 
CAO et FAO. Pour 
dessiner il suffit de 
suivre les contours d'un 
dessin posé sur la 
tablette avec un stylet 
spécial; et ce dessin 
est directement repro- 
duit à l'écran. Ensuite, 
et grâce au logiciel livré 
avec la tablette, libre à 
vous de colorier et de 
stocker sur disquette 
votre chef d'oeuvre. 

Le prix ? 

5480 F HT en format 
A4 et 7325 F HT en 
format AS. 
Malheureusement elles 
ne sont pour l'instant 
disponibles que sur PC. 


HENGSTLER, 

Z] des Mardelles, 

94 rue Blaise Pascal, 
BP 71, 93602 AULNAY 
SOUS BOIS, CEDEX 


NOR re te ce ne PrÉSOME ae L  aacns cn 
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TEO annonces 


Pour rédiger votre annonce, utilisez ce bon; écrivez très lisiblement en majuscules. 
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Coupon à retourner 
correctement rempli à 
l'adresse suivante : 
TEO 
79, rue Hippolyte KAHN 
69100 VILLEURBANNE 


INFORMER , PREVENIR 


C'est éviter que des personnes 


ne contractent la maladie et 


meurent par ignorance. 


Le NT Nos 


PJ Æ.- 
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VIE ET MORT DES DINOSAURES 


SUJET/COMPLEMENT 





Ko ir Ci 


Ce logiciel regroupe 4 thèmes grammati- 
caux : reconnaissance du sujet par « c'est 
qui », pronominalisation du groupe sujet, 
pronominalisation du complément de 
phrase, déplacements et suppression du 
complément de phrase. Sujet/Complément 
offre la possibilité au professeur de créer 
ses propres fichiers, de lire 
les résultats de l'élève et de 

revoir le travail de l'élève. 500,00 Ë 





AUX ORIGINES DE LA VIE 
4, CR LR LS) à 
 : "N 


Ce logiciel explique les origines de la vie en 
prenant comme base de réflexion la consti- 
{ution de la cellule et ses modes de repro- 
duction. Co-édité avec la Fondation Diderot. 


Il était une fois 
Rédaction 

Le temps d'une histoire 
Au temps jadis 


Vie et mort des dinosaures ____ 
Aux origines de la vie 

Didoct english orth. gram. (collège) 
Didact english orth. grom. (lycée) 
Didact english orth. gram. {ts niv] 
Sujet/Complément 

Écritures 


900,00 








Ce jeu d'aventure a pour but de vous 
identifier à un jeune paléontologue étu- 
diant la vie des dinosaures afin de passer 
une thèse expliquant leur disparition. Ce 
logiciel a obtenu le Ti d'Or du meilleur 
logiciel éducatif 1986. Co-édité avec la 


Fondation Diderot. 
290,00 F 


- TENCE. N_&6 a] 


cms 
RITES 





DIDACT ENGLISH 
HEURE go Le Sc 


4 | ET 


Didact English est une méthode de soutien 
et d'apprentissage de l'anglais assistée par 
ordinateur. Sa pédagogie repose sur l'ana: 
lyse de réponse, et les messages grammati- 
caux sont nombreux et variés pour répun- 
dre à tous les cas possibles. 





290,00 F 









ECRITURES 
Ecritures comprend quatre logiciels d'aide à l'expression 
_ e ll dr une fois, Rn , Le temps d'une histoire, Au temps 
.. temps jadis. 
M APR Il était une fois 1 grâce à un canevos conforme à la PT jadis 
LS morphologie du conte, l'enfant + écrire 4 conte en 
Sa, étant une trame narrative donnée por logiciel. 
> aie soufre des aides formelles me: larédoction à Vétoit 
traditionnelle le portrait ee © 0e di ie sont une fois 
proposées pour chaque catégorie (le portrait en puzzle, la narration en flash-back, la 2907 
Aa tenpe di ou rade à l'éciue de rés hate 
temps l'aide à l'écriture de récits s. Plusieurs époques sont 
proposées et àl'inténeur de chacune d'elles, des poney M tn 7 aux Rédaction 
décors, aux Ge à aux métiers. 
Le temps d'une histoire : permet d'écrire des contes ou des 
poèmes [suivantl'aide choisie) originauxet ense Le temps 
sur la loi de la que des éléments [eau, terre, eu et ain. 


Ces quatre logiciels peuvent être vendus séparément. 





| d'une histoire 


m—+ 
= SACS VAI V\ PSN MIDNE 
Règlement par : mandat[l chèque]  virementi] 


Nom : 
Adresse : 


à retourner à : 


69006 LYON 


Montant total : 


Carraz Éditions 
20 bis, rue Godefroy 


INTERVIEW 


= ÉDUCATIF ET LUDIQUE 


OÙ L'HISTOIRE D'UNE SOCIETE D'EDITION EN MICRO INFORMATIQUE 


Impopulaires les 
éducatifs ? 
Peu novateurs et inutiles ? 


Ecoutons plutôt cette 
histoire; celle de CARRAZ 
EDITIONS, née il y a 
moins d'un an. Cette 
jeune société peut aujour- 
d'hui se vanter de propo- 
ser une gamme de logi- 
ciels éducatifs importante 
et variée. Comment ? 


En tenant un pari que beaucoup 
considéraient comme un véritable 
défi. 

Tout commence en avril 1987, au 
siège social d'INFOGRAMES, qui 
décide de se consacrer alors 
exclusivement aux logiciels de 
jeux et à la télématique. Le dé- 
partement éducatif, que dirige 
Jacqueline CARRAZ , prend alors 
la décision de faire cavalier seul. 
Forte de son expérience dans le 
domaine éducatif, Jacqueline 
CARRAZ entraîne son équipe et 
fonde : CARRAZ EDITION. Sa 
politique : éditer des logiciels qui 
diffèrent des exercices à «trous 
trous», de certains manuels sco- 
laires. 

Ils sont quatre au départ à 
entourer la directrice de cette 
nouvelle société pour tirer vérita— 
blement parti des capacités du 





Jacqueline Carrez 


micro-ordinateur. L'équipe est 
actuellement constituée de 
quinze personnes, dont certai- 
nes installées à Paris dans de 
nouveaux locaux. En quelques 
mots, une société qui prospère... 


LES RAISONS DU SUCCES 


La rigueur de la politique 
éditoriale est certainement une 
des clés du succès CARRAZ. 
Les logiciels allient à l'aspect 
éducatif un caractère ludique et 
des graphismes somptueux. Les 
premières louanges (VIE ET 
MORT DES DINOSAURES 
primés TILT D'OR par notre 
confrère TILT en 1987) encou- 
ragent Jacqueline CARRAZ à 
diversifier sa gamme. La person- 
nalité et la détermination de la 
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jeune dirigeante sont assurément 
pour beaucoup dans l'évolution 
de cette société, mais son itiné— 
raire explique aussi la qualité de 
la finition des produits. Profes- 
seur de français avant d'être 
directrice de collection chez 
INFOGRAMES, elle sait et ressent 
ce que les enfants attendent. 

CAU TEMr: JADis 


CES, 





L'HISTOIRE D'UN EDUCATIF 


Chacun des éducatifs est le 
fruit d'une collaboration étroite 
entre un pédagogue, un psy- 
chologue et un informaticien. Un 
auteur présente à la maison 
d'édition son projet ou cahier des 
charges qui est soigneusement 
étudié. Si celui-ci est retenu, le 
travail avec les programmeurs et 
le graphiste commence. Un 
grand intérêt est porté à l'interac- 
tivité et la convivialité du  pro- 
duit; l'enfant doit pouvoir 
apprendre en se divertissant. 
Rien de rébarbatif malgré le 
sérieux des thèmes abordés. 
Ainsi LE TEMPS D'UNE HIS- 
TOIRE est un logiciel inspiré de 

la symbolique des éléments de 
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INTERVIEW 


Bachelard. L'enfant doit relater un 
conte en intégrant les éléments 
proposés. Il peut faire appel à un 
conteur, à un poète. Une belle 
façon d'assimiler sans contrainte 
et complexité le monde, somme 
toute merveilleux et accessible, 
du philosophe Gaston Bachelard. 


L'EDUCATIF D'UNE HISTOIRE 


Dans les nouveautés cette fois, 
mais toujours dans les logiciels 
de la gamme de français, RO- 
MAN POLICIER, dont la sortie est 
prévue pour le mois d'avril. !l 
s'agit d'un logiciel d'aide à l'écri- 
ture d'un roman policier, qui 
reconstitue le canevas de tout 
roman traditionnel. À chaque 
page-écran, est proposée une 
nouvelle étape de l'énigme. Votre 
personnage est défini, ensuite la 
victime, les circonstances, etc. 
Sans brider l'imagination, RO- 
MAN POLICIER, assure cohé- 
rence et maintien au texte de 
l'utilisateur. 

Mais les thèmes ne manquent 
pas à CARRAZ EDITION, d'au- 
tant que les sollicitations sont 
omniprésentes. Séduite par «AUX 
ORIGINES DE LA VIE», une im- 
munologue, Dominique VUIT- 
TON demande à CARRAZ 
EDITION de développer un 
logiciel sur le SIDA. Cet éducatif a 
été réalisé avec l'aide de nom- 
breux scientifiques dont les 
professeurs MONTAGNIER, 
Phillipe LAGRANGE, Jean-Bap- 
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tiste BRUNET, directeur du centre 
OMS sur le SIDA. Avec un 
contenu scientifique élaboré, il 
vise non seulement à informer, 
mais aussi à sensibiliser les jeu- 
nes. Ces derniers enquêteront 
dans une ville gagnée par une 
épidémie qu'ils auront à enrayer. 
Soyons reconnaissants à 
CARRAZ EDITION d'avoir fait le 
premier pas, car il faut bien 
admettre que l'ordinateur est 
aujourd'hui un des supports 
idéaux pour sensibiliser les 
adolescents souvent négligés par 
les médias grand public. Un 
message efficace, doublé d'un 
beau geste, puisque tous les 
bénéfices réalisés par la vente 
de ce logiciel seront versés à la 
Fondation pour la recher- 
che Médicale Encore une fois 
la micro-informatique s'ouvre à 
l'actualité, et quelle actualité ! 


CARRAZ MALIN ! 


En bref, les prévisions de 
parution chez le même éditeur. 
Dès le mois d'avril, nos chers 
petits pourront réviser sur leur 
THOMSON, les notions de ma- 
thématiques restées obscures 
pour les parents : la différence 
entre le carré de la somme et la 
somme du carré avec le logiciel 
«des enfants de mes parents 
sont-ils les parents de mes 
enfants ?» Quant aux tout-petits, 
ils pourront retrouver sur leur 
écran miniature leurs héros 
favoris du petit écran : LES 
PETITS MALINS. En effet, une 
licence d'exploitation de la série 
télévisée vient d'être signée par 
CARRAZ pour développer deux 
logiciels de coloriage (LES 
PETITS MALINS à colorier) qui 
sortiront en maï et probablement 
deux autres pour la rentrée 
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(BOBBY fête son anniversaire à 
MALINVILLE et PATTY cherche 
ses amis à MALINVILLE). Si vous 
désirez en savoir plus, demandez 
à vos enfants, ils sauront vous 
renseigner ! 


LE SIDA 


On a vu apparaître le SIDA en 
1981, depuis la maladie n'a cessé 
de se développer au point de 
parler aujourd'hui d'épidémie 
mondiale. Depuis cette date de 
nombreux scientifiques (épidé- 
miologistes au début, immunolo- 
gues et virologues ensuite) ont 
concentré leurs travaux sur 
l'étude de cette maladie. Grâce à 
ces recherches on en connaît 
aujourd'hui la cause : le virus 
VIH, et ses modes de transmis- 
sion : les relations sexuelles, 
tous les échanges sanguins et la 
voie mère-enfant. 





Des mesures de dépistage de 
la maladie ont alors pu être ins- 
taurées dès 1985. Ces mesures, 
même si elles ont endigué l'épi- 
démie parmi une partie de la 


population gravement atteinte 
(hémophiles), demeurent insuf- 
fisantes pour l'ensemble de la 
population. Malgré l'évolution 
constante des connaissances 
aucun vaccin ni traitement ne 
sera disponible dans un futur 
proch2. Notre seul moyen de 
lutte contre l'évolution de l'épi- 
démie passe donc par l'irforma- 
tion et l'éducation de tous en 
vue d'un changement de com- 
portement vis-à-vis de la mala- 
die. Cette première étape du 
combat contre le SIDA, basé sur 
l'information et la prévention, 
doit permettre d'éviter que des 
personnes ne contractent la 
maladie et meurent par igno- 
rance. 





Le logiciel de CARRAZ EDI- 
TION s'inscrit donc dans cette 
étape de prévention et d'irfor- 
mation. I! se propose d'apporter 
des connaissances sur la mala- 
die, sur ses possibilités de 
dissémination et sur ses modes 
de contamination. L'ensemble de 
ces connaissances devant 
permettre de s'irformer et de se 
responsabiliser vis-à-vis de la 
maladie, dans un but de pré- 
vention tant individuel que col- 
lective. Le support micro- 
irformatique, de part son inter- 
activité et de son audience 
auprès des 15-25 ans, doit 
d'abord permettre de sensibiliser 
cette partie de la population qui 
reste aujourd'hui l'une des plus 
exposées. 


LE CONTENU SCIENTIFIQUE; 
SOURCE DU LOGICIEL ! 


L'ensemble des points scientifi- 
ques exposés par le logiciel a été 
déterminé et vérifié avec le con- 
cours d'une immunologue et 
d'un micro-biologiste. ls appar- 
tiennent aux trois domaines 
scientifiques concernés par la 
question de l'épidémie et 
l'épidémiologie. 

* Eléments de nature virologique 
— origine du virus 

— action du virus sur l'homme 

— Structure du virus 

— réplication du virus 

— vaccins anti-viraux 

* Eléments de nature immunolo- 
gique 

— notion de maladie opportuniste 
— populations à risques 

sur le thème abordé. 

— primo-infection 

— porteur asymptomatique 

— Séropositivité 

— la maladie SIDA 

— défenses immunologiques de 
l'organisme 

— principe du vaccin 

— Structure du système immunitaire 
— fonctionnement du système 
immunitaire 

* Eléments de nature épidémiolo— 
gique 

— histoire de la maladie 

— répartition géographique de la 
maladie 

— modes de transmission 

— moyens de prévention 

— détection des individus infectés 
— problèmes de société posés par 
l'épidémie 
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Le principe retenu par CARRAZ 
EDITION est celui du jeu de 
simulation, où le contenu scien- 
tifique ainsi que les idées fortes 
relatives au thème sont accessi- 
bles au joueur par le biais d'un 
système d'essais et d'erreurs. 
Cette méthode d'acquisition puis 
de mise en oeuvre de connais- 
sances, permet de par l'investis— 
sement personnel demandé, de 
sensibiliser d'une manière 
efficace le joueur. Au niveau de 
l'acquisition des connaissances, 
la structure envisagée permettra 
plusieurs niveaux de jeu, dans la 
mesure où les éléments scientifi- 
ques utiles à la réussite du jeu, 
peuvent être plus ou moins ap— 
profondis en fonction de l'intérêt 
ou de l'âge du joueur. 


LE JEU 


Le joueur a pour mission d'en- 
rayer une épidémie. L'action se 
situe dans un cadre urbain et 
contemporain. Au départ, il ne 
dispose d'aucun élément con- 
cernant cette épidémie. I a par 
contre entière liberté quant aux 
informations qu'il décide d'obte- 
nir et aux actions qu'il décide 
d'entreprendre. Pour atteindre 
son but, il doit dans un premier 
temps découvrir et comprendre 
la nature de la maladie, ses 
mécanismes de dissémination et 
de contamination. il peut alors 
dans un second temps. instau- 
rer, proposer des moyens de 
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INTERVIEW 


lutte contre celle-ci. Le logiciel 
répond ensuite au joueur en lui 
indiquant si son attitude et ses 
actions ont eu de l'influence sur 
l'évolution de l'épidémie. Si 
l'ensemble des actions choisies 
reste inefficace le logiciel 
replace le joueur en situation en 
lui proposant d'améliorer sa 
position vis-à-vis de l'épidémie. 
ll peut au cours du jeu consult- 
ter un dossier personnel qui 
contient l'ensemble des irforma- 
tions choisies et des actions 
entreprises. 


1 Structure 
nenbranaire 


$ 2 Code génétique sous 
forne ä° fkn° 


3 none vEnsE h 


È 4 Eoselpnie de 
rotesn 


Afin d'obtenir une meilleure in— 
teractivité ainsi qu'une utilisation 
simple et rapide du logiciel, 
CARRAZ propose au joueur de 
manipuler des textes ou des 
dessins. Cette manipulation 
s'effectue par l'intermédiaire d'un 
curseur commandé par la souris 
ou les touches fléchées du 
clavier. Les informations et les 
différentes actions proposées 
apparaissent à l'écran grâce à un 
système de fenêtre. L'écran prin- 
cipal associe deux fenêtres : 
l'une pour le plan de la ville où se 
situe l'action, l'autre pour le 
dossier du joueur. 

Le joueur en parcourant la ville, 
peut se rendre dans différents 
lieux où il rencontre des person- 
nages. 

C'est en les questionnant qu'il 
obtient des informations sur 
l'épidémie, sous forme de texte 
ou de dessin. 
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Ces lieux sont aux nombre de 11: 
— Médiathèque 

— Direction des affaires sanitaires 
et sociales. 

— Café 

—- Mairie 

— Hôpital 

— Centre de transfusion 

— Laboratoire d'analyse 

— Centre de recherche 

— Hôtel 

—- Commissariat 





La Médiathèque renferme tous 
les dessins, la DASS sera l'en- 
droit privilégié pour consulter les 
courbes relatives à l'évolution de 
l'épidémie: l'hôpital, les diffé 
rents centres et le laboratoire 
d'analyses permettront au joueur 
de glaner des informations plus 
scientifiques; le Commissiariat, 
les cafés et la mairie sont 
dédiés, aux informations voire 
aux propositions venant de la 
population et enfin l'Hôtel est le 
lieu où le joueur pourra consulter 
les informations recueillies et ré— 
fléchir avant d'agir. 


L'ACTION 


Le module recouvre un point 
scientifique défini, à traiter par le 
logiciel. Il regroupe plusieurs 
éléments nommés objets, acces- 
sibles par le joueur indépendam- 
ment les uns des autres. Une 
branche de l'arbre est constituée 
de modules qui se succèdent. Ils 
sont de deux types : module 


TEO N° 17 - MARS/AVRIL 1988 





d'action et module d'information 
correspondant respectivement à 
une prise de décisions en fonc- 
tion des informations recueillies et 
à une investigation sur le thème 
abordé, 


Moire 


LA 1° jointe. sit 
lenent a ste 
Ÿs elle 


a popu FRS 


ARS Ur de 


Q_VERTELER) 


Le module est la partie manipu- 
lation du joueur. 

Ilexiste trois types de module 
objet (action, information, 
retour) pouvant être de deux 
natures différentes : textes ou 
dessins. Vis-à-vis d'un objet de 
type action le joueur atrois 
possibilités : 


— le conserver pour passer au 
module suivant en retenant donc 
l'action proposée. 


-— le rejeter pour dévalider l'objet 
et refuser l'action proposée. 


— le vérifier pour aller consulter 
les autres objets de module avant 
de se décider. 


Pour un objet de type information 
le joueur dispose de deux possi- 
bilités: 


— poursuivre l'enquête afin d'ob- 
tenir plus d'informations. 


— interrompre l'enquête pour 
passer au module suivant. 


LOGICIELS 





UOI 
DE NEUF 
CHEZ LES 
EDITEURS 
BRONZEZ 
AVEC 
FIL ke A 
t puisqu'on parle de ski, propos de classique: 
Vous aimeriez FIL vient de sortir «Tout Schuss»:  «Atomik» (FIL). C'est le célèbre 
: 6 sports de glisse très classi- casse-briques qui réapparaît 
Fr en Le mais : tableaux sont dans sa ne a S a 


à : assez beaux. Par exemple le saut pour elle la possibilité de créer 
visage bruni par à ski: facile tant que vous êtes sur soi-même un tableau (en plus 
les rayons des le tremplin, plus dur lorsque des 30 déjà existants); on peut 
hauts sommets vous êtes en l'air, d'autant plus aussi jouer à deux sur le même 
enneigés; mais que votre skieur n'apparaît que tableau. Certaines briques se 


: dans une petite fenêtre. Du clas- déplacent lorsqu'on les frappe … 
faire la queue 


sique donc, si vous connaissez L'idée n'est pas nouvelle mais 
pendant une déjà «Winter Games» d'EPYX, on a toujours envie d'arriver 
heure en bas des  rappelez-vous que dans une jusqu'au 30ème tableau, et ça 
pistes, dégoulinant collection un seul exemplaire prend du temps. 
d'huile solaire, ce ‘tM-- 
n'est pas votre RS le cut PS + 
genre. Alors voilà ST Pc à 


la recette : ins- 
tallez une lampe à 
U.V. sur votre 
Thomson et lan- 
cez les dernières 
disquettes FIL. 
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UOI 
DE NEUF 
CHEZ LES 
EDITEURS 





S. Fight (FIL) est censé 
être un jeu d'action dans l'es- 
pace; en fait pendant toute une 
partie du jeu on se croit dans une 
voiture au milieu de haies fleu- 
ries. Le jeu n'en reste pas moins 
intéressant car les ennemis sont 
là pour vous tirer dessus, et ils 
arrivent de tous côtés. À vous 
d'éviter leurs balles (qui vont 
lentement), et ainsi d'aller tou- 
jours plus loin à la rencontre de 
nouveaux êtres pas très sympa- 
thiques. Sur route ou dans 
l'espace, c'est un jeu doté d'un 
rythme incroyable et les paysa- 
ges (nationale 7 ou Vénus) sont 
très réussis. 





L: venu d'ailleurs: 
Game Over (FIL). Vous êtes le 
célèbre héros, en l'occurence 
vous ressembleriez plutôt à un 
gorille, et vous progressez en 
milieu hostile parsemé d'as- 
censeurs, de hangars et de 
bidons d'huile...Vous affrontez 
des êtres bizarroïdes entre les 
robots et les monstres 
préhistoriques en leur lançant 
des grenades. On croirait du 
déjà vu et pourtant ce jeu est 
très complexe: 2 planètes 
organisées de façons différentes 
dans l'espace: des êtres que 
vous devez impérativement 
détruire pour continuer. Un point 
très positif: lorsque vous perdez 
une vie vous revenez au dernier 
point de passage obligatoire. 
Passionnant, à conseiller à tous 
les fondus de jeu d'arcade 
vraiment évolué. 
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P 
lus calme mais tout aussi 
dangereux: les fonds marins 
d'Aquanaute (FIL). Vous plongez 
à la recherche d'un trésor: mais 
décidément les éléments sont 
contre vous: des hameçons, 
puis des requins et autres pois- 
sons mortels. Une fois le trésor 
en vue, il faut éviter les murènes 
et, la pieuvre géante qui croise 
dans les parages. Sans parler, 
bien sûr, des plongeurs enne- 
mis... Un seul regret: on est cré- 
dité d'une seule vie, décidément 
trop peu pour un seul homme ! 





Et voilà, à la fin du week-end le 
résultat sera le même que si vous 


étiez allé à Megève : sensations 
fortes et visage bronzé. En plus 
pas de marques disgracieuses 
de lunettes: le summum ! 

Tous ces jeux fonctionnent sur 
Thomson de MO5 à TO9+. 

Prix de la disquette: 145 FF. 
Pierre E GRANGE 


UOI 


DE NEUF 
CHEZ LES 


EDITEURS 


LORICIELS 


Comme nous 
l'avions prédit et 
même annoncé, 
LORICIELS 
continue à 
développer sur 
Thomson. On 
peut ainsi noter 
le début d'une 
nouvelle 
génération de 
jeux encore plus 
sophistiqués et 
innovants qu'en 
1987. Mais les 
super produtions 
sont encore en 
cours de 


programmation 
ce qui nous 
promet une année 
1988 pleine de 
rebondissements. 











0] 


FRS pour ceux 
qui commençaient à se lasser 
des jeux d'aventure, l'éditeur de 
Rueil-Malmaison vient d'adapter 
Mach 3 à partir de la version IBM 
PC. Pas de surprise, c'est de la 
même trempe, Très bien réalisé. 
De nombreuses étapes vous 
feront découvrir successivement 
plusieurs planètes toutes plus 
fantastiques les unes que les 
autres. Après avoir essuyé les 
pluies de météorites, défié les 
barrières de mines, franchi des 
tunnels, rechargé vos réservoirs 
de fuel et évité les attaques des 
vaisseaux ennemis de plus en 
plus agressifs, vous parviendrez 
peut-être à détruire le visage de 
SFAX, qui, une fois abattu, 
dégénèrera sous une forme plus 
menaçante encore. Mach 3 est 
un logiciel très coloré mais les 
graphismes et l'animation res- 
tent encore peu approfondis. Les 
programmeurs ont tout de même 
réalisé une belle prouesse pour 
réaliser dans le plus pur style des 
jeux d'arcade ce logiciel en 3D 
qui passionnera les plus blasés. 
THOMSON 6/8/9+ 220 F en DISK 
et 140 F EN CASSETTE 

NOTE = 7 SUR 10 
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fciels 4 
KyR. 


N 


L. deuxième adaptation 
est celle de K.Y.A. Astucieux 
mélange de «casse-brique» et 
de «Pacman» ce logiciel fait 
apparaître un décor qui rappelle 
celui de Boulder Dash. Bien que 
répétitive, la mission profite ici 
d'une option construction qui 
vous permet de définir vos pro- 
pres tableaux de jeu. La straté- 
gie vous obligera de recharger 
sans cesse les batteries sur des 
éléments appropriés afin de 
casser les murs de briques avec 
le laser. Techniquement, la 
gestion des sprites est éton- 
namment souple. L'éternel 
slalom entre les obstacles reste 
attrayant et difficile. Servie par 
un graphisme net et précis, la 
mission manque cependant de 
variété. Un seul moyen de re- 
médier à ce handicap, construire 
vos propres caves |! C'est sans 
aucun doute la phase de jeu la 
plus intéressante du programme. 





a 7: 
Pour THOMSON 6/8/9/9+ 220 F 
en DISK et 140 F en K7 

NOTE = 6,5 SUR 10 
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LOGICIELS 


UOI 
DE NEUF 
CHEZ LES 
EDITEURS 


L'éditeur lyonnais 
compile à tout va en 
choisissant un thème 
par machine : enquê- 
tes policières sur 
Amstrad CPC, les 
guerriers sur Atari ST 
et les athlètes sur 
Thomson. Nous 
n'avions pourtant pas 
remarqué de sportifs 
de haut niveau parmi 
les réponses du son- 
dage dans le numéro 
16 de TEO, mais avec 
un peu d'entraîne- 
ment... 


plus de 10 sports vous 
attendent à travers les 
5 logiciels de cette 
compilation. 








Et quel entraînement : 


KARATE 

Superbe simulation de ce sport 
de combat avec 15 positions dif- 
férentes en attaque comme en 
défense. Et puis, même si c'est 
peu avouable, quel plaisir que 
d'entendre le bruit de votre 
pied frappant le ventre de 
votre adversaire (de toute façon 
c'était lui ou vous). 


RUNWAY Il 

Là encore des bruitages et ani- 
mations de bon niveau. Au volant 
de votre formule | vous essayez 
de franchir le premier la ligne 
d'arrivée. Bien sûr il y a des 
virages et des concurrents, mais 
c'est ça le sport. Pour ceux qui, 
après plusieurs semairies, déses- 
pèrent de voir le deuxième ta- 
bleau, une possibilité leur est 
offerte: vous pouvez modifier le 
circuit au virage près. Ne 
programmez que des lignes 
droites et vous êtes sûr de voir 
l'arrivée ! 


FOOTBALL 

Vous dirigez toujours le joueur 
qui a la balle, mais il faut vous 
battre pour la garder. Le dessin 
n'est pas d'une grande finesse, 
mais les possibilités de jeux 
compensent largement. En effet 
vous pouvez tout aussi bien faire 
une tête, qu'un tackle ou appeler 
la balle pour qu'on vous fasse 
une passe. Et si après les pro- 
longations il y a toujours match 
nul, à vous de passer dans les 
cages pour tenter d'arrêter les 
célèbres pénalties. 


LES DIEUX DU STADE i ET Ii 

8 épreuves d'athlétisme, du 110 
mètres haies au lancer de javelot. 
Un grand classique qui se joue à 
deux ou contre l'ordinateur. Avant 
de commencer une épreuve vé- 
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rifiez que votre manette de jeu 
tiendra jusqu'à la ligne d'arrivée. 
Avec ce quelle va subir rien n'est 
moins sûr... 

Le plus fort c'est que tout ça 
tient sur une seule disquette 
(190F.) ou cassette (140 F.) 
pour tous les TO et MO. 

Le soir lorsque vous vous serez 
assez entraîné, INFOGRAMES 
vous prépare une série de di- 
vertissements: Un accord 
passé entre les Lyonnais d'Info- 
grames et les Allemands de 
Micro partner, va lancer sur le 
marché Français des logiciels 
basés sur des dessins animés: la 
Panthère Rose, Tom et Jerry et 
d'autres à venir. Malheureuse- 
ment, pas de version Thomson 
pour l'instant. 

Par contre réjouissez-vous: le 
quatrième tome de la saga BOB 
MORANE arrive : BOB MORANE 
OCEANS. Un logiciel d'action 
avec des combats comme vous 
n'en avez jamais vu. Avec ce 
nouvel épisode, la saga passe à 
la vitesse supérieure, jugez-en 
plutôt : pendant les combats 
sous-marins, le sang (le vôtre 
mais aussi celui des requins 
que vous blessez) attire inman-— 
quablement ces «tueurs aux 
dents blanches». Dès lors ils se 
dévorent entre eux. Pensez-y cet 
été sur la plage... En tout cas on 
vous en reparkera dans le pro- 
chain numéro, lorsque ce su- 
perbe logiciel sortira. 





DISK N'ROLL 


Ce texte se propose de donner une idée de la 
façon dont sont rangés les enregistrements sur le 
support magnétique d'informatioris le plus répan- 
du en micro-informatique : une disquette. Dans le 
prolongement de l'article «Manipulation de fichier 
sur TO8 et TO9», on prendra comme exemple 
l'organisation des disquette 3"1/2 pour micro- 
ordinateurs Thomson TO, TO9, TO9+. En divisant 
par 2 le nombre de pistes par face (40 au lieu de 
80), la description est également valable pour les 
disquettes 5"1/, de la famille Thomson (TO et MO). 
Mutatis mutandis, ce qui y est dit permettra 
aussi de comprendre l'organisation des disquet- 
tes sous un autre système d'exploitation (MS DOS 
ou NR DOS par exemple). 


ORGANISATION PHYSIQUE D'UNE DISQUETTE 
Sur une face de la disquette les informations sont 
enregistrées en binaire, sous forme de magnétisa- 
tions de sens opposés, le long de pistes circulai- 
res concerntriques. Sur une disquette 31/2 Thom- 
son, les 80 pistes sont numérotées de 0 à 79 de 
l'extérieur vers le centre. Afin de permettre un 
accès plus rapide sans avoir à parcourir séquen- 
tiellement toute la piste, la succession de 0 et de 1 
au long d'une piste est découpée en secteurs. 
Sur une piste d'une disquette 3"1/2 Thomson, les 
16 secteurs sont numérotés de 1 à 16. 

Pour optimiser la durée moyenne d'un accès 
«aléatoire» (la tête de lecture pouvant se placer 
sur n'importe quel secteur de n'importe quelle 
piste), on n'attribue pas forcément des numéros 
consécutifs à des secteurs adjacents. L'écart de 
numéros entre deux secteurs adjacents. L'écart de 
numéros entre deux secteur adjacents est appelé 
facteur d'entrelacement:; il peut valoir de 1 à 15 et, 
en l'absence d'indication contraire, est fixé à 7 par 
le système d'exploitation Thomson. L'ordre de 
succession des secteurs le long d'une piste est 
alors :1815613411 9167 1451310 

ll reste à préciser le nombre d'éléments binaires 
(bits) enregistrés dans un secteur: ce nombre est 
bien sûr lié à la possibilité de «serrer» plus ou 
moins les changements de magnétisation du 
Support. Sur une disquette 3“1/2 Thomson un 
secteur contient 128 octets en simple densité et, 
en double densité, 256 .octets dont seulement 255 
sont utilisés (ceci est lié au BASIC qui ne mani- 
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REPAIRE 





pule que des chaînes de caractères d'au plus 255 
octets. Saufprécision contraire, les caractéristi- 
ques indiquées dans la suite correspondent à une 
double derisité. 


ORGANISATION LOGIQUE D'UNE DISQUETTE 
Parmi les 80 pistes, la piste 20 joue le rôle particu- 
lier et fondamental: c'est elle qui garde la trace de 
tous les fichiers enregistrés sur la disquette ainsi 
que la place disponible, le système d'exploitation 
utilise des informations pour retrouver un fichier et 
les tient constamment à jour lors de l'utilisation de 
la disquette. 

Sur la piste 20 sont en effet enregistrés : 

— répertoire desfichier stockés: 

— latable d'ailocation des fichiers (TAF): 

— éventuellement (DOS BASIC 128 ou 512) lenom 


de la disquette. 
secteur 1 secteur2 secteur3 
nom disq. TAF répertoire 


— nom de la disquette : occupe, lorsqu'il existe, les 
8 premiers octets du secteur 1 de la piste 20, 
suivis de 3 espaces (octet de valeur &H20). 

— table d'allocation des fichiers (TAF): sur les 255 
octets du secteur 2 de la piste 20, l'octet 1 est 
initialisé à 0; chacun des octets suivant représente 
un bloc de 8 secteurs. 

Le regroupement de secteurs en blocs doit être 
relié au fait qu'un octet ne peut prendre que 256 
valeurs que comporte une face de disquette; 160 
valeurs seulement sont par contre nécessaires 
pour désigner les blocs de 8 secteurs. 

Un bloc contient pratiquement 2 Ko (exactement 
255*8-2040 octets). Un piste contient 2 blocs, 
une disquette 160 blocs numérotés en hexadéci- 
mal de O0 à 9F.. Si on retire la piste 20, réservée à 
la gestion de la disquette, il reste donc sur une 
disquette initialisée 158 blocs -soit 316 Ko- pour 
inscrire des fichiers. 


CORRESPONDANCE ENTRE LA TAF ET LES 

BLOCS 

TAFoctetn° 1 23 45 4243. 2p+2 2p+3 
bloc n° x 01 23 4142. 2p  2p+#1 
piste (0) 1 20... p 

Signification des octets de la TAF (à partir du 2ème): 

— si valeur hexadécimale entre 00 et 9F: le bloc 

correspondant appartient à un fichier: la valeur 

donne le numéro du bloc du fichier: 

— si valeur hexadécimale entre C1 et C8 : le bloc 

correspondant est le dernier d'un fichier: la valeur 
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donne (nombre de secteurs du bloc occupés par 
cefichier)+CO: 

— si valeur hexadécimale égale FF : le bloc corres-— 
pondant est libre; 

— si valeur hexadécimale égale FE: le bloc corres- 
pondant est réservé: c'est par exemple le cas 
des deux blocs de la piste 20 ou des blocs occu- 
pés par le DOS BASIC 1.0, lorsqu'il est présent. 


REPERTOIRE 

Chaque fichier inscrit au répertoire est inscrit par 
zone de 32 octets ainsi remplis : 

— 8 octets avec nom du fichier, cadré à gauche 
(le 1er octet vaut O si le fichier a été supprimé par 
KILL, FF si cette zone n'a pas encore été utilisée); 
- 8 octets avec suffixe, cadré à gauche: 

— 1 octet avec type du fichier (0 si BASIC, 1 si 
données BASIC, 2 si language machine, 3 sitexte) 
— 1 octet avec codage du fichier (0 si binaire, FF si 
ASCI); 

— 1 octet avec numéro du premier bloc attribué au 
fichier (0 à 9F): 

— 2 octets avec nombre d'octets danis le dernier 
secteur du fichier: 

— 8 octets avcec commentaire éventuel (BASIC 128 
OU 512): 

- 8 octets inutilisés. 

On voit que la TAF et les octets 14, 15, 16, 16 de 
la zone répertoire d'un fichier permettent de 
définir ce fichier comme une liste chaînée de 
blocs, secteur, octets. À 


INITIALISATION (FORMATAGE) D'UNE DISQUETTE 


Au cours du formatage le systèrne d'exploitation 
écrit la valeur hexadécimale E5 dans tous les 
octets, sauf sur la précieuse piste 20. Avec le DOS 
BASIC 1.0 : il y a FF partout sur la piste 20, sauf 
dans les octets 1 (Valeur 0), 42 et 43 (Valeur FE : ils 
réservent la piste 20!) de la TAF. En BASIC 128 ou 
512:il ya FF partout sur la piste 20, sauf dans : 

— les 11 premier octets du secteur 1 quicontiennent 
le nom dela disquette sur 8 caractères, suivi de 3 es- 
paces: 

— les octets 1 (Valeur 0), 42 et 43 (Valeur FE : ils 
réservent toujours la piste 20!) de la TAF. 


LIMITATION DE LA TAILLE ET DU NOMBRE DE 
FICHIERS 

ll est évident que le plus gros fichier enregistra- 
ble ne peut excéder la capacité utile d'une face 


de disquette, soit 316 Ko. D'autre part, d'après le 
système de gestion de la TAF et du répertoire, dès 
qu'un fichier est créé ilse voit attribuer au mini- 
mum un bloc; unfichier, aussi court soit-il occupera 
donc au moins 2 Ko sur la disquette. 

Remarque (particularité Thomson): 

— Le catalogue affiché à l'écran ou imprimé 
n'indique que la taille approximative des fichiers 
en Ko (nombre de blocs*2); 

— Pour assurer la compatibilté avec les premiers 
lecteurs simple face pour TO7 les deux faces 
d'une disquette sont considérées comme des 
unités distinctes. 

Chaque fichier figurant au répertoire étant décrit 
par une zone de 3 octets, les secteurs 3 à 16 de la 
piste O peuvent donc inscrire au plus 14*8= 11 
fichiers. 

REMARQUE : une face de disquette comporte 
158 blocs utilisables qui pourraient recevoir 
autant de fichiers d'une taille inférieure à 2 Ko, 
alors que les 254 octets de la TAF pourraient 
théoriquement représenter 254 blocs (soit une 
capacité de 508 Ko...); c'est donc la place affectée 
au répertoire qui limite le nombre de fichiers. 


ACCES DIRECT AUX INFORMATIONS CONTENUES 
DANS UNE DISQUETTE 

Le DOS BASIC Thomson permet d'examiner ou de 
modifier tout secteur d'une piste quelconque grâce 
aux possibilités suivantes : 

— En lecture: la fonction DSKI$ (d,p,s) rend, sous 
forme d'une chaîne de caractères, le contenu du 
secteur s de la piste p de la disquette insérée 
dans l'unité d: 

-— en écriture : l'instruction DSKOS$ (d,p.s,X$) inscrit 
la chaîne X$ dans le secteur s de la piste p de la 
disquette insérée dans l'unité d, écrasant le conte- 
nu précédent de ce secteur; si la longueur de X$ 
est inférieure à 255, la fin du secteur est remplie 
avec des octets nuls (caractères de code ASCII 
O): cette inscription n'est donc à employer qu'avec 
la plus grande circonspection ! 

CONCLUSION 

Le lecteur parvenu au bout de ces lignes dispose 
de tous les éléments pour disséquer ses dis- 
quettes, octet par octet. S'il ne juge pas cele indis- 
pensable, du moins saura-t-il comment sont stoc- 
kés ses précieux fichiers. 

L'SOURROUILLE 
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Et voici le gagnant du concours de logiciels, celui que nous 
allons dignement récompenser. 

Ce programme de gestion de budget vous permet de gérer 
vos chèques et plusieurs cartes de crédit, de faire des 
prévisions, d'imprimer des bitans (plusieurs critères de sélec- 
tion). Et surtout, vous pouvez rechercher rapidement le prix 
de votre vignette d'il y a deux ans, ou toute autre dépense 
passée. La partie exceptionnelle du programme n'est pas 
visible ici : le mode d'emploi très détaillé et précis, Avec ce 
guide, pas d'erreur possible, C'est pourquoi nous avons 
choisi de ne pas en faire une version allégée mais de vous le 
proposer dans sa version Intégrale contre un chèque de 20 
francs à l'ordre de TEO, frais de port inclus. 

Yves DRILLET 


. 


100 vnnonansananmenvenmsmmemnsecmmannnosnenmmeomenanasennesenconmemmenmeme 
200 *PROGCRAMMÆ D£'BUDGET PAR Y.DRILLET 

300 “REVISION 20 O1 88 

400 
500 





'ALETTE 1,0123:CLEAR 0000, ,2: DEFGRS. 881 
110008811100, 8B11111110,8B11111111,8811111110,8811100,8BI 3 1000,0:DEFG 
RS(I )>=28B100000, &B1000000, 4811111111, &B1000001,&BI0000! ,8B1 ,8B1 8811111 
11 

600 ON ERROR GOTO 33600 

700 ON KEY=CHRS#(30 )GOTO 1000:ON KEY="=#"GOSUB 29300:0N KEY="#"" GOSUB34300: ON 
KEY="S"GOSUB 32900 

800 OPEN"0",#2 ,"LPRT: (80) 

900 SCREEN 6,0, O1 1 T=0: NB=2000: MET=2500:DIM DAS(NB ),CRSCNB), TYSCNB),REFS(NB), 
NOSCNB), Co(NB), COMPS (NB), MO#CNB),ME7(MET ): NS=-1: HO=-10: RE 0: I T=0 

1000 PRINTCHRS (20) : TT#-0: STA=O I CLS 1 LI »4: LOCATE1S, 1: AFTRB1, 1: PRINV"B U D GE 
T°": ATFRBO ,0 











1100 LOCATEO, 4: PRINT" o *C'hargement d'un fichier 

1200 LOCATEO, 5: PRINT" 1 ‘Entrée des opérations 

1300 LOCATEO,6: PRINT" 2 *M'odificetions des opérations 
1400 , 7: PRINT" 3 *“L'iste des opérations 

1300 PRINT" 4 ‘Annulation d'opérations 

1600 3 PRINT 3 *S'euvegerde d’un fichier 

1700 LOCATEO, 10: PRINT" 6 "B'flan 

1800 LOCATEO, I 1: PRINT" 7 Suppression des ’P'assées au compte 
1900 LOCATEO, 12: PRINT" 8 ‘emise à zéro 

2000 LOCATEO, 13: PRINT“ ke. *"T'ri des opérations 

2100 LOCATEO, 14: PRINT" Q ’Q'uitter le programme 

2200 LOCATEO, 1%: PRINT“ Li *l'mprimante 

2300 LOCATEO, 18:PRINT” # Copie d'écran 

2400 LOCATEO, 1 7: PRINT" « Table des codes 


2300 LINE(0,23)-(399,23):LINE - (399,148): LINE -(0,1482):LINE-(0,23):LINE(23,23) 
+(23,148):LINE(63,23)-(63, 148 ): GOSUB33300 

2600 FORIO=4TO1 7: LOCATE1 , 10: PRINT" “:NEXT 

2700 IFLIC4THENLI #17ELSEIFL1>17THENLI 4 

2800 LOCATEI ,LI1IF GR=OTHENPRINTGRS (0); :GR-1ELSEPRINT" “; :GR°0 

2900 INSINKEYS: IF INSC>""THEN 3100ELSÉTH=TH?1:1F TH MOD30-OTHEN2800 ELSEIFT 
H>3000 THENPL.AY “OSLGDORE MI DO"": TH=0 

3000 GOTO2900 

3100 IFASC(INS)="13THEN3G6OOELSEIFASC(INS >e11THENLI°LI-1 

3200 1FASC(INS)="100ORASC(INS )=32THENLI "LI +1 

3300 IFASCCINS ) <BBANDASCCINS >>47THENLI = VAL 1NS ) #4 : GOTO3600 

3400 IFASCCINS )>G4ANDASC( INS ) <123THENLI "3 + INSTR("CcEell 1 AaSsBDPpRr TtQql 1 Gge 
*®,INS)/2:1F LI>S3ANDLI <19THEN3600ELSELI #4 

3500 59102600 

3600 ON LI -36GOSUB13300, 16000, 17100,18400,19500,14800,32100,21000,23400, 30400 
»23000, ee 34300, 29300 

3700 GOTO 

3800 am. 

3900 ANALYSE D'ECRAN ENTR 

4000 FOR I=4 TO 14:TEMP$="":1F RE"0 AND (1=% OR 1=11 OR 1=14) THEN 4300 

4100 FOR J=30 TO 41:1F SCREENCJ,1)<>32THEN TEMPS ° TEMPS *CHRS(SCREENCJ, I >) 

4200 NEXT:ON 1! GOSUB,,,4700,4700,8800,6600, 7700.8200,8700,8700, 35800, 10300, 10 










4300 NEXT 

4400 RETURN 

4900 ssaus 

4600 CONTROLE DATE 

4700 IFCTEMPS=""OR TEMPSe"7")AND RE=1THENTEMPS="?":1F I=4 THEN DAS="";COTO & 
300 ELSE DAFS="":GOTO 5300 

4600 IF LENCTEMPS)€>6 THEN 5400 ELSE TEMPS-MIDSCTEMPS,9,2)+MIDSCTEMPS,3,23°M 
IDSCTEMPS,1,2) 

4900 1F VALCHIDS (TEMPS, 1,2))<87 THEN 3400 

3000 Q=VALCMIDSCTEMPS,3,2)):1F Qi OR Q@12 THEN 3400 

9100 QPVALCMIDS(TEMPS,9,2)):1F Q<1 OR Q>31 THEN 3400 

9200 IF 1-4 THEN DAS°TEMPS ELSE DAFS-TEMPS 

3300 LOCATE30, 1:PRINT LEFTS(MIDS(TEMPS,5,22+MIDS(TEMPS,3, 2)+MIDSCTEMPS,1,2)* 
SPACÉS(12),12): RETURN 

S400 PLAY"O1D0"": LOCATE 0,20:PRINT Veuillez entrer la date sous le forme  JJ 
MMAA exemple 020487" 

2500 LOCATE 30,1:GOSUB 12300: 1 23:RETURN 

5600 shnmnnnnnmnnac entame ne SORA TT TRES RTS ana Se uuuees 

5700 CONTROLE DEBI T: CREDIT 

3800 IFCTEMPS=""OR TEMP$e"?")AND RE=1 THEN TEMPS$="7":CR$="":COTO 6300 

9900 IF LEFTSCTEMPS,1)-" 

6000 IF LEFTSCTEMS, 4) 

6100 PLAY"O1RE":LOCATEO,20: PRINT"Debit (D) ou credit (C) ?* 

6200 LOCATE 30,1:GOSUB 12300: 1-3:RETURN 

6300 LOCATE 30, RINT LEFTS(TEMPS *SPACES(12),12): RETURN 

6400 snenmmnnnenanamannunumenmmnnesumasntnansnmuesnenantenmmaasssuvssusen 

6500 CONTROLE TYPE D’ OPERATION 

6600 IFCTEMPS3=""0R TEMPS="2")AND RE=1 THEN TEMPS="2": TY$="": COTO 7400 

6700 IF LEFTSCTEMPS,1)="A" THEN TEMPS="AMEX" 2 TYs-" 

6800 IF LEFTS(TEMPS,1)="V" THEN TEMPS =" VIREMENT": TYS="V 

6900 1F LEFTS(TEMS, 1) * THEN TEMPS-"0.A.B." :TY3="D":GOTO 7400 

7000 IF LEFTS(TEMPS, 1 ” THEN TEMPS="SOLDE ” :TYS="S"; GOTO 7400 

7100 IF LEFTSCTEMPS,1) * THEN IFMIDS(TEMPS.2,1)="H" THEN TEMPS = "CHEQUE": TY 
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Sn on 7400 ELSE IF MIDS(TEMPS,2,1)°"B"THEN TEMPS "CB"; TY$ "8°": COT 

400 

200 PLAY"O1MI”":LOCATE 0,20:PRINT'Veuillez entrer 5 pour le solde précédent 
CH pour un cheque”,"V pour un virement ,CB pour une carte bleue À pour 
american «xpress" 

7300 LOCATE 30,1:GOSUB 12300: 123: RETURN 

7400 LOCATE 30,1:PRINT LEFTS(TEMPS+SPACES(12), 12): RETURN 

7500 nnrnnnannn eo An mn anne nn nn V MNT ENUmmNmenauS san 

7600 CONTROLE REFERENCE 

7700 IF (TEMPS="" OR TEMPS="7") AND RE=1 THEN TEMPS "7": REFS="":GOTO 7300 

7800 REFS=TEMPS 

7900 LOCATE 30,1:PRINT LEFTS{TEMPS +SPACES(12),12): RETURN 

8000 smnmensmeunueuamaaansssemuensenmammnmmenses masnnosenmassessanans 

8100 CONTRÔLE NUMERO 

8200 IFCTEMPS=""OR TEMPS-"?") AND RE-1 THEN TEMPS=°?; NOSe 

8300 NOS=TEMPS 

8400 LOCATE 30,1:PRINT LEFTSCTEMS+SPACES (122,12): RETURN 

8900 mnnnnnne une nn Une en Tu RUN PONS RM NT EN TN MS HOMO TU S 

8600 CONTROLE CODE 

8700 IFCTEMPS="OR TEMPS="7") AND RE=1 THEN TEMWP#="?":GOTO 8900 

8800 IF VALCTEMPS)<1 OR VALCTEMPS)>99 THEN 9100 

8900 IF 1=10 THEN CO-VAL(TEMPS) ELSE COF-VAL{TEMPS) 

3000 LOCATE 30,1:PRINT LEFTS(TEMPS *SPACES (12),12):RETURN 

9100 PLAY"O1FA OCATE 0,20: PRINT'Veuillez entrer un nombre entre 1! et 99 (P 

e des codes presser “e')" 

2RE 





nl 








GOTO 8400 















9200 

9300 

9400 

93500 

3600 1F LEFTS(TEMPS, 1)" 

9700 

9800 IF LEFTSCTEMPS,1)"P" THEN TEMPS="PREVISION “:COMPS=""@"": GOTO 10200 

9900 IF LEFTS(TEMPS,1)2"X" AND RE1 THEN TEMPS "X2PREV, NON PASSEE ":COMPSe"X 
"“:GOTO 10200 

10000 PLAY'0150":LOCATE 0,23: PRINT Veuillez entrer C pour pese 
N pour non passée au compte, ":PRINT'P pour prévisionnei ” 
EN PRINT'et X pour les opéretions prévisionnel 1 et non passées" 

10100 LOCATE 30,1:GOSUB 123001: 1°3: RETURN 

10200 LOCATE 30,1:PRINT LEFTS (TEMPS +SPACES(12),12):RETURN 

10300 mannssnnsmennenansessanneanaesnusupemnsmannesasesenmeumnuse 

10400 CONTROLE MONTANT (LIMITE INFER4EURE » 

10500 LOCATE 29,1:1FI=13THEN MOS=1NT(VAL(TEMPS )2100+.5)/100:PRINT LÉFTSCSTRS 
(MOP)SPACES (12), 12) ELSE MOF#-INT(VAL(TEMP#)4100+,93/100:PRINT LEFTSC 
STRSCMOF SI +SPACES (12), 12) 

10600 RETURN 

10700 = C1 CLLELL] 

10800 RECHERCHE 

10900 LOCATE 1,4:1F RE=ITHENPRINT"Date de debut de recherche"ELSEPRINT"Date 





OR TEMPS?) AND RE] THEN TEMPS= ":GO0TO 10200 


THEN TEMP$°"COMTE* 























d'opéretion 

11000 LOCATE 1,5:11F RE= re PRINT"Dete de fin de recherche  ‘ELSEPRINTSPC{2 
6) 

11100 LOCATE 1,6 :PRINT“Credit ou debit ? jus 





11300 LOCATE 1 : PRINT"Non ou référence LS 
11400 LOCATE 1,9 :PRINT'N* d'opération ou chèque " 
11900 LOCATE 1,10:IF RE=1 THEN PRINT'N® de code (début) 1/99 "ELSE PRINT'N 


11200 LOCATE 1,? :PRINT'Soide/CHèq/CB/Amex/Vir /Dab" 
o 


* de code 1799 
11600 LOCATE 1,11:4F RE"1 THEN PRINT"N® de code (fin) 1/99 "ELSE PRINTS 
PC(26) 


11700 LOCATE 1,12:1F RE=1THEN PRINT Cosp. ,Nor pes. ,Prevision,X" ELSE PRINTC 
oupte, Non psssé,Prevision 

11800 LOCATE 1,13:1F RE=1 THEN PRINT"Montant, limite inférieure “ ELSE PRINT" 
Montent 

11900 LOCATE 1,14:1F RE=1 THEN PRINT'Montant limite supérieure ‘ ELSE PRINTS 
PC(26) 

12000 LINE (O,23)-(399,23):LINE-(399,140):LINE-(0,140):LINE-(0,233:LINE (228,2 
3)-(228,140):LOCATEZ8, 4: RETURN 

12100 snsanssuas sessss.ss - 

12200 LECTURE ECRAN 

12300 DO:1F PO5<30 THEN LOCATE 30,,1 

12400 IF CSRLINC4 THEN LOCATE ,4,1 ELSE IF CSRLIN>14THEN LOCATE ,14,1 

12900 TE=O:INS=INKEYS: 1F INS= THEN 12500 ELSE TÉ-ASC(INSD: IF TÉ> °97 AND TE 
<=122 THEN TES-CHRS(TE -32) 

12600 IF TE“44 OR TE-46 THEN TES=CHRS (46 ) 

12700 IF (TE>=6® AND TEt=90) OR (TE>=48 AND TE<e%7) THEN TES=CHRS(TE ) 

12800 IF TE-32 THEN TES=" "ELSE IF TE»13 THEN EXIT 

12900 IF TE“8 AND noel THEN LOCATE POS-1,,1 ELSE IF(TE®”9 AND POS<492 THEN L 
OCATE POS+1,,1 

13000 IF TE“10 THÈN LOCATE 28,CSRLIN+1,1 ELSE JF TE“11 THEN LOCATE 28,CSRLIN 
-1,1 

13100 PRINT TES; : TES" 

13200 LOOP: RETURN 

LKE ELLE CECCCPT EE ECT LE TEE EEE ZE PELLE LEE LE LE LEE LL LE LL LL LL LL 

13400 CHARGEMENT 

13500 CLS:LOCATE 15,1:ATTRB1,1:PRINTCHARGER "+ ATFRBO, 





o 

13600 PRINT'Fece n° O"1DIR"O1.DAT": PRINT: PRINT'Face n° 1":DIR"1:.DAT 

13700 LOCATE 0,20: 4NPUT'Numaro de la face de disquette O 0: MINFS:IF NFSe" 
OR NFS=CHRS(30)THEN 14300 ELSE 1F NOT(NFS="1"OR NFS=""0") THEN 13700 

13800 PRINT'Nos du fichier à charger “1 INPUTFIS:FIS-LEFTS(FIS,8):1F F18="" © 
R FIS-CHRS(30) THEN 14300 

13900 OPEN"1",#1,NFS+";:"+FIS 

14000 DO:NS=NS+1:1F NS>-NB THEN 16800 

14100 INPUT#1,DASCNS D, CRSCNS ), TYSCNS),REFS CNS >, NOSCNS ),COCNS ), COMPS (NS }, MOPC 
NS) 

14200 TT#=TT#eMO#CNS 22 € (CRSLNS D = 

14300 IF EOFCIDTHEN EXIT 

14400 LOOP:CLOSE#1 

14500 CLS: RE TURN 

14600 ===sosssmnasemenvnesvenmemmmemmannnssmaremmensmens anse neumennumeemme 

14700 SAUVEGARDE 

14800 CLS:LOCATE 19,1:ATTRB1,1:PRINT"S AUVEGARDER *:ATFRBO, 
LJ 

14900 PRINT'Face n° O":DIR"O:.DAT":PRINT: PRINT'Face n° 1*:DIR°*1:.DAT 

15000 LOCATE 0,20: INPUT'Nusero de la face de di te O où l'yNFS:IF NFS="" 
OR NFS=CHRSC3O)THEN 15700 ELSE IF NOTCNFS-"1"OR NF$="0") THEN 15000 

15100 PRINT'Now du fichier à sauvegarder ‘: {NPUTFIS:FIS-LEFTS(FIS,8):1IF Fi$- 
"YOR FIS=CHRS(3O)THEN 15700 

19200 OPEN"O",#1 ,NFSe"":"+FIS 

13300 GOSUB 30400+ 

135400 FOR 1+0 TO NS 

15500 WRITE#1 ,DAS{1),CRSCI 2, TYSC1),REFSCI ),NOSCI ),COCI >, COMPS CI ),MO#CI ) 

13600 NEXF:CLOSE#1 

15700 CLS: RE FURN 

19800 =mmresusssuum 

15900 ENTRER 

16000 CLS:LOCATE 15,1: ATTRB1,1:PRINT'E NTRER 
© 











2e2+1) 










16100 GOSUB33300 

16200 RE=0:GOSUB 10900 

16300 GOSUB 12300:GOSUB 4000 

16400 1F NS<NB THEN NS=-NS+1 ELSE 16600 

16500 DASCNS )-DAS: CRSCNS )2CRS: TYS (NS )= TYS: REFSCNS ) "REF 8: NOS (NS )=NOS : COUNS )2C 
O: COMPS (NS } -COMPS: MO#( NS 2 =MO# 

16600 LOCATE 30,4:1F NS>°NB THEN 16800 

16700 PLAY"LGO4DOO3LAFAL3SOMILGSF A": GOTO 16300 

16800 LOCATE O,20:PRINT"Fichier saturé veuillez faire de la place *ENTER" ”:P 





16900 
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22200 


22400 
22300 


22600 


22700 
22800 
22900 
23000 


23100 
23200 
23300 
23400 
23300 
23600 


23700 
23800 
23900 


24000 
24100 
24200 
24300 
24400 
24300 
24600 
24700 
24800 
24900 
23000 
23100 
29200 


292300 
23400 
23300 
23600 
23700 
25800 


23900 
26000 


26100 
28200 
26300 
26400 
26300 
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MODIFICATION 

SP LOEATE 18,1: ATTRBI,1:PRINTMODIFIER 
GOSUB33300 : IT=0:RE=1:GOSUB 10900 

GOSUB 12300:COSUB 4000:RE -0 

DATA: CRRS =CRS : TYRS =TY3: REFRSREÈFS : NORS =NOS : COR=CO: COMRS =COMPS : MOR 
GOSUB 10900 :COSUB 24300:1F FV=ITHEN RETURN ELSE COSUB 27800 

LOCATE 0,201PRINT"Est-ce l'opération cherchée O/N ?"SPC{200 ) 
INS=INKEYS: IF INS="N" OR INS="n"THEN 17500 ELSE ÎF INS="0" OR 1N$="0" 
THEN 17800 ELSE 17700 

RICE 0,20:PRINT'Veulllez modifier les données ?"SPC(200):LOCATE 28,1 
GOSUB 12300: LOCATEO, 20: PRINTSPC(200 ): GOSUB 4000 


DAS{NOO aDAS : CRS (NOO ) =CRS : TYS (NOOD=TYS : REFS {NOO REF S : NOS (HOO ) "NOS : CO6 
NOO 3 = CO: COMP8 (NOO ) «COMPS : MOF(NOO ) =MOS 

PLAY'"L2404D003LAFALIZSONIL24F A": GOTO 17300 
cnpssensesssassasasanasssuns sonnasavenasanaumeasausmsamsnannenuns 

LISTER 

CLS:LOCATE 15,1:1ATTRB1,1:PRINTL I STER 

GOSUB33300: IFO1RE=1:GOSUB 109400 

GOSUB 12300:GOSUB 4000 

DARS =DAS: CRRS 2CRS : TYRS«TY$: REFRS=REFS : HORS = NOS : COR =CO: COMPRS =COMPS : MOR 

MO: CLS 

GOSUB 26500 

GOSUB 24300:1F FV=1 THEN RETURN ELSE GOSUB 27000 

IF IP=0 AND CSRLIN>I8 THEN 19100 ELSE 18900 

LOCATE 0,20:PRINT'"Appuyer sur une touche "SPC(200 }: ATT-1000 

IF INKEYS=""* THEN ATT=ATT#1:1F ATT>1000 THEN ATT=0: PLAY"DO®:GOTO 19200 
ELSE 19200 ELSE CLS:GOSUB 26900:GOTO 18900 

ANNULATION 

CLS: LOCATE 13,1: ATTRB1,1:PRINT'ANNULER 


"rATTRBO, 





“+ ATTRBO,0 








eo 

GOSUB33300: IT=0:RE=1:COSUB 10900 

LOCATE 0,0:GOSUB 12300:GOSUB 4000 

DARS DAS : CRRS =CRS : TYRS = TYS : REFRI REF $ : NORS "NOS : COR =CD: COMPRS =COMP 8 : MOR 
#-HO#: CLS 

CLS:GOSUB33300: LOCATE 0,0:GOSUB 26400: LIL=I 

GOSUB33300:LOCATE 0,0: GOSUB 24300:1F FV°1THEN RETURN ELSE LILeLILo1:1F 
LIL>18 THEN CLS: GOSUB33300: LOCATE 0,0:GOSUB 26300:L1L=2 

LOCATE ,LIL:GOSUB 27000:LOCATE 0,20: PRINT"Est -ce l'opéretion & ennuler 
ON ?"SPC(200) 

INS-INKEYS: IF INS="N" OR INS="n" THEN 20000 ELSE IF INS=°0" OR INS="0°" 
THEN GOSUB 20400 ELSE 20200 


GOTO 20000 
LOCATEO, 23: PRINTSPC(80):LINEC4,LILAB+32-(627,LILa8+33:FOR MO2NOO TO NS 


SUAPDAS (NO), DAS CNO+1 >: SUAPCRS (ND) ,CRS(NO+I D: SUAPTYS (NO), TYS(NO+1 ): SWAP 
REFS{(NO), REFSCNOS1 ): SuAPNOS (HO), HÔSCNOS I 2: SWAPCOCNO), CDÉNO+1 IL SWAPCOMP 
SCNOD, COMPSCNOSI 31 SUAPHOSCNO D, MO#CNO +1 » 

NEXT:NS°NS-1: IT=1T-1 

RETURN 


CPCPECECEPCCCOPCCCECCCEPPPPCCOCCECLECC EC EE ET EEE CEE 


SUPPRESSION DES PASSEES AU COMTE 
CLS: LOCATE 5,1:ATTRB1 ,1: PRINT'SUPPRESSION DES PASSÉES AU COMPTE”: ATTRE 





06,0 

LOCATE 0,20: PRINT"Le fichier sere détruit voulez-vous le seuvegerder © 
/N ou retourner au menu "#° "SPC(110) 

PLAY*O31.240D0MI S004D0 

INS<INKEVS:1F INS="N" OR INS="n" THEN 21400 ELSE IF INS="0"OR INS="0" 
THEN GOSUB 14800:1F F18«""THENRETURNELSE21400 ELSE 21300 

CLS:RE 0: 1 4: LOCATEO, L: INPUT'DATE DU NOUVEAU SOLDE 1", TEMP8: GOSUB4 
700:LOCATEO,0:LIL®1:GOSUB 26300:LIL=I 

FOR NOO=MS TO 0 STEP-1 

LILeLIL#1:IF LIL>18 THEN CLS:LIL»2:GOSUB 26500:L1L=2 

LOCATE ,LIL:COSUB 27000 

IF COMPSCNOO)<>"O"THEN 22300 

ST# STE EMO#CNOO Ja { {CRE CNOO 2= "D" 382 01 ): IT=NOO»1 
LINE(4,LILe8+3)-(627,LILeB+3): FOR NO=NOO TO NS 

SUAPDAS CNO », DAS CNO+ 1 9: SUAPCRS NO), CRS{NO+ 1 }: SUAPTYS (NO), TY$ LNO+1 ): SWAP 
REFS(NO),REFS€NOe1 3: SUAPHOS (NO), NOS (NO 1 J: SUAPCO(NO), COUNOr I 2: SUAPCO“# 
s(NO), COPS NO +1 ): SUAPMOS 1 NO D. MOPCNOS1 } 


NEXT: NS «NS -1 

LOCATE O,01NEXT 

CLS: RE #0: ?GOSUB10900 1 LOCATE 30,6: 1FST#>0THENPRINT"CREDI T'ELSEPRINT"DEBIT 
LOCATE 30, 7: PRENT"SOLDE *: LOCATE 30, 8 : PRINT"SOLDE "1 LOCATE 30, 10 : PRINFE : LOC 
ATE30, 12: PRINT"COMPTE ": LOCATE30, 13: PRINTABS(ST#): LOCATE30, 4 : PRINTHIDS 
TEMS,5,2); MIDS(TEMPS,3,2):;MIDSUTEMPS,1,2) 

GOSUBAOOO : NS =NS +1 : DAS (NS }=DAS : CRSCNS D =CRS: TYSCNS De TYS: REFS (NS IPREFS:N 
OSEUNS D NO08 : COUNS D =CO: COMPS NS 1=COMPS : MOY (NS }=MO# 

RETURN 
mdndannannansuncenmenpann anse nee rna none esenpasmsousemannsesss 
QUITTER 

CLS:LOCATE Î9,1:ATTRBI,1:PRINT"Q U I TTER 
0,0 

GOSU823600 : END 

REMISE À ZERO 

CLS:LOCATE 19,1: ATTRBI,1:PRINT'R E MI S E A 
GOSUB23600 : GOTOS00 

LOCATE 0,20: PRINT'Le fichier sera détruit voulez-vous la sauvegarder D 
4N°"SPC(30) 

GOSUB33300 

PLAY" O93L24D0MI 5004D0 

INS-INKEYS: IF INS="N" OR INS-"n" THEN 24000 ELSE IF INS="D"OR INS="0" 
THEN GOSUB 14800:GOTO 24000 ELSE 23900 
UNLOAD: UNLOAD1 : CLOSE : CLS : RETURN 
nonRonnsaenanssonmensenmnnnemenmeneansses 
COXFPARAISON 

FOR NOO=IT TO NS 

TT = TTP + MOWCNOO 38 C{CRSENOODe"DIe2 +1 J 

IF NOT{DARS= "OR (VAL(DARS ) }<=VAL(DAS(NOO)))THEN 23600 


*: ATTRB 





ZERO 


*: ATTRB0, 0 











IF NOTCDAFS "OR VALUDAFS )>=VAL(DAS(NOO)J)THEN 23609 
IF NOT(CRRS=""OR CRRS=CRS (N9O) THEN 29600 

IF "OR TYRS=TYS(NOO))THEN 23600 

1F "OR REFRS=RÈFS (NOO) THEN 23600 

IF NOT(COR-OOR COR<=CO(NOO22THEN 25600 


IF NOT(COF -D0R COF > =CO(NOO))THEN 23600 

1F NOT{COMP OR COMPRS=COMPS(NOO)OR (COMPRS="X""ANDICOMPS CNOO  »"P"OR 
COMPSCNOO) "N°" )ITHEN 25600 

IF NOTIMOR#=0OR MOR#{-MOF(NOOD)THEN 25600 

IF NOTCMOF#-OOR MOF#> -MO#(NOO))THEN 23600 

STA= STI +MO4 CHOO Da € (CRSENOQ =D" )82 +1 à: I T-NOO®1 : FV=0: RETURN 

NEXT 

IF BI<>1THENLOCATE, 19 

LOCATE19:PRINT USINC"SOLDE : 2899008, .88 
TT STE 

1P-1 THEN PRINTE2 USING" 

‘,,.## SOUS TOTAL : ##PS#ENE, TT#: ST#: PRINTS2 

IF BI-ITHEN FV-I:RETURN ELSE LOCATE 0,20:PRINT"Le fIchier a été entièr 
amant vérifie"sSPC(200) 

FOR 1-0 TO 10:INS-1NKEYS:NEXT 

INS-INKEYVS: IF INS THEN 26200 ELSEFV=I ; RETURN 

annornnnmemmentannsnne ss enneoomnnensesssssenenannemnenmennenmnuneence 
AFFICHAGE DES DONNEES FICHIER 

VSACHRS (124): AF-S: Date “+W8:" Type 
éro “eus "CO" US +" Coupte"+WSs" Crédit 
INT AFS:IF IP"1THENPRINT#2.4FS 


20 





SOUS TOTAL : ##NR4008,.0N 





SOLDE : ###908 











"Use" Référence ‘+UWS9" Num 
"+Wss" Débit "US: PR 












CPT*. Vi 
CLP" E2 


monte "sansausansant"6#4)g 6" 


menus": 0$: PRINTAFS: 1FIP°1 






meUSetronsaa 


THENPRINTE2, AFS 
26700 COSUB33300: LOCATEO, 2: RETURN 
26800 =mnnnommmannensnnemesnnanessnnsansessmanenannecessuennenamansnmmnasms 
26900 ECRITURE VALEURS (LIGNE) 
27000 AFS =U8 MIDS (DASCNOO 3 6° *,9,21eHEDSCDASCNOO D e®----0,3,2 )eMIDS (DAS € 


NOO)e"--",1,23408 
27100 AFS=AFS»MIDS("SOLDE CHEQUE CB AMEX VIREMENTDAB ",BaCINS 
TRÉ"SCBAVD", TYS(NOO)}-1361,8)e+WS+LEFTSCREFS (NO) +SPACES(123,12)4V$4+LEF 


TSCNOS(NOO)#SPACES (122,12 2°WS+MIDSCSTRS(CO(NOO) D ?SPACES(C23,2,23408 





27200 IF COMPS(NOO)="D"THENAF 8 AFS 2 "COMPTE ""+WSELSE IF COMPS (NOO ) ="M'THENAFS AT 
S+"Non pa“:WsELSEAFS-AFS + 'PREVIS "US 
27300 1F CRS(NOO)="C"THENPRINTAFS; : PRINT USINC" MO# CNOO ) ; : PRINT 





WS SPC412)+W8;ELSE PRINT AFS SPC(12)+W8; PRINT USING"#####08#, , #0": MO 
#CNOO) ; : PRINT US 
27400 IF IP=1THEN 1F CRSCNOO)-"C"THENPRINT#2, AFS: : PRINT#2, USING" #0#28008, . #8 
% MO#CNOO) ; : PRINT#2,WSSPC (12 )eUSELSEPRINTS#2, AFSSPC( 12) +08; : PRINTE2 US 
NC"PS2 09886, 08"; MOPCNOO ): : PRINT#2,US 
27200 RETURN 
27600 sssausse 
27700 IMPRESSION 
27800 LOCATE 30,4: PRINT MIDS(DASCNOO),9,2 ); MIDS(DAS(NOO), 3,23; MIDSCDASENODD, 
2) 
27900 IF CRS(NOO)="C" THEN AFS ="CREDIT 
28000 LOCATE 30,5:1PRINT * 
28100 LOCATE 30,6:PRINT AFS 
28200 1F TYS(NO0)="S" THEN AFS="SOLDE" ELSE IF TYS(NOO)="C" THEN AFS="CHÈQUE 
“ ELSE IF TYS(NOO)="B“ THEN AFS2"CB" ELSE IF TYS(NOO)="A" THEN AFS ="AM 
EX* ELSE IF TYS(NOO)='V" THEN AFS="VIREMENT" ELSE AFS ="DAB" 








“ ELSE AFS="DEDIT * 


28300 LOCATE 30,7:PRINT LEFTS(AFS +" “,10) 
28400 LOCATE 30,8:PRINT LEFTS3(REFS(NOO) +** ,12) 
28300 LOCATE 30,9:PRINT LEFTS(NOSCNDO 12) 





28600 LOCATE 30,10:PRINT CO(NOO);," e 

28700 LOCATE 30,11:PRINT * = 

28800 IF COMPS(NOO)="0" THEN AFS="Compte” ELSE IF COMS(NOO)"N'" THEN AFS="N 
on pessée” ELSE AFS="Prévision" 

28900 LOCATE 30,12:PRINT LEFTSCAFS+" 

29000 LOCATE 29,13:PRINT LEF TSCSTRS (MOPINOO } ) 0° 

29100 LOCATE 30:14: PRINT * 


“,12) 
",129 








29400 LECTURE TABLE DES CODES 

293300 PLAY"DO":CET(O,0)-149,20),ME%CMET): MEYXCMET)-MŒÆT:LILeCSRLIN: POsPOS:1F T 
C=1 THEN RESTORE 34600 

29600 TC211CLS:FOR 1120 TO 1:FONR J1=0 TO 4:READ AFS: LOCATE Jin16,11m12: PRINT 
AF$:FOR Ki=0 TO 9 

29700 READ AFS:LOCATE Jin16 ,{11212+K161) : PRINT 11290+J1210+K1;LEFTSCAFS,11 
) 

29800 MEXT K1,J1,11 

29900 LOCATE 0,24:PRINT®" “GRS(1)6" pour le manu et eutre touche pour le re 

tour; 

* SCREENPRINT 

30100 1F INKEY3=""" THEN 30100 ELSE CLS: PUT(O,0),MEZCMET) 
N 

Kiepie BELL LLLLLELEE CELTELE EEE EEE CEE EE LE LEE CEE LE LT LEE EE EE DELLE LE LE EL LEE LEE) 

30300 TRI 

30400 CLS:LOCATE 15,1: ATTR8I,1:PRINTTRIER 


o 
30800 LOCATE O,20:PRINT"UN MOMENT SUP TRI EN COURS*"SPC(200 ) 


30600 ECART=NS 

30700 ECART=INT(ECART/23:1F ECART<1 THEN 31600 

30800 JJ=0:KK=NS-ECART 

30900 11=°JJ 

31000 LL=I1+ECART 

31100 IF VAL(DAS(LL))>VALCDASCIRD) THEN 31900 

31200 GOSUB 31700 

31300 I11=I1-ECART:1F 11€1 THEN 31500 

31400 GOTO 31000 

31300 JJ-JJe111F JJ2KK THEN 30700 ELSE 30900 

31600 RETURN 

31700 SAP DAS(II),DAS(LL 31 SWAPCRSCII),CRS (LL): SWAPTYSCTT 2, TYSCLL »: SUAPREFS 
CID, REFSCLL D: SWAPNOS CI 1 >, NOSCLL):SWAPCOU II D, COLL ): SWAPCOMPS CII), COMP 
S{LL): SOAPMOFCIT ), NO#CLL D 

31800 RETURN 

ET LL ELECELCCELEDEECECCREPCEDOPCEECCOREREECECERERERERCERECECCEPCERCRERRES 

32000 BILAN 

32100 IP1-1P:1P=1:B1"1:CLS; DARS="": DAFS ="; CRRS n°9: TYRS 2": REFRS<°""; COMPRS =" 
%: MOR#=0: MOF#-0: LOCATEO, 20: PRINT'Mattre l'imprimante sous tension"SPCC 
110): PLAY"O8L12D0MIFASO": FOR 10-0703: INS<INKEYS: NEXT 

32200 1F INKEYS="" THEN ATT=AÏT+1:1F ATT>1000 THEN ATT=0:PLAY"D0":GOTO 32200 
ELSE 32200 

32300 CLS: FOR 11-0709: TT#=0:ST#=0:COR=10811-(11"03:C0F-10811 99 

32400 GOSUB26300: AFS -LEFTS€ TOTAL DES CODES DE ‘’+STRS(COR)+" A 
COF )*SPACES(60) ,78)+ :PRINTAFS: IF 1P=1 THEN PRINT#2,AFS 

32500 GOSUB24300:1F FVe1 THENIT-0:NEXT: BI =O1 IP=1P1;:RE TURN 

32600 GOSUB27000:GOTO 32300 

32700 ==venpmnmemmrenpmmscumerenmesmacnemmmoncanpmeancomnépenenmencunsaues 

32800 IMPRIMANTE 

32900 LOCATEU,20: PRINT" M'arche ov ‘A'rrét de 1’imprimentæe :M/A" 

INS-1MKEYS: IFINS="M'ORINS » “ws"THENIP=1:GCOTOS3100ELSE BF ÎNS-"A"OR INS=' 

2"THENSP=0: GOTO33I00ELSE 33000 

33100 LOCATEO, 20: PRINTSPC(80 } : GOSUB33300 : RE TURN 

39200 == En 

33300 LOCATE 0,23: PRINT p able 
des codes *S" Imprimante: "j:1F1P=1 THENPRINT "Marche "ELSEPRINT"Arret 


:LOCATEPO, LIL: RETUR 


“I ATTRBO, 





es TRar 







33400 RETURN 

33300 TRAÎTEMENT ERREUR 

33600 IF (ERR*G20RERR*23) AND ERL-13900 THEN CLS:PRINT'FICHIER INEXISTANT®":F 
OR 10=0 TO 3:PLAY"DOPPPP":NEXT:RESUME 13300 

33700 IF ERR=71 THEN CLS:PRINT "DISQUETTE MANQUANTE":FOR 1O=0 TO 5: PLAV"DOPP 
PP":NEXT:RESUME 1000 

33800 CLS: PRINT” ERREUR :";,£RR ;" EN LIGNE 

33900 PRINF”LIST";ERL; : PRINTCHRS (11 )+CHRS (113 

34000 END 

34100 ssscsssssnsamrenususenmenmumenmeuvansaeucanrance 

34200 COPIE ECRAN 

34300 SCREENPRINT: RE TURN 

34400 nonnmemnnenmenménensosmmnesmmeensmennanaaceseemenmenenanpennenennanes 

349300 TABLE DES CODES 

34600 pere ENTREE, /\/V/V/\/X SOLDE, PAIE ,ALLOCATION,SEC. SOC. ,MUTUELLE, , , , AUT 


:3ERL 





34700 DATA EPARGNE,CODEVI ÉLIANE,CODEVI 1,CODEUI 2,,CEL 1,CEL 2,CAISSE EPARG 
RE, , » AUTRE 

34600 DATA PRETS, 1, 2, 3, 4,1 %,2 %,59, AUTRE 

34900 DATA FRAIS, ELÉCTRICITE, ?GAZ, EAU,B01S, CHARGE, TELEPHONE, ,FRAIS BANCAIRE, , 
AUTRE 


33000 DATA ASSURANCES, MAISON, VOITURE, ECOLE, TRANSPORT, , 4 5 » » AUTRE 

33100 DATA 1MPOT,REVENUE , FONCIER, LOCAUX, VIGNETTE, ,,, , : AUTRE 

35200 DATA GENERAUX, ALIMENTATION, HABILLEMENT, VINS, MEDICAMENT, DOCTEUR, VOI TURE 

+ TRAVAUX, HAISON, , AUTRE 

39300 DATA LOISIR, REVUES, DONS, ACTIVITE, THEATRE, CINE, LIVRES, INFORMATIQUE, REST 
AURANT, CADEAUX, AUTRE 

35400 DATA CASN,DAB, RETRAIT, , , ; , 9 » » AUTRE 

39300 pen PROFESSION, REMBOURSEMENT ,HOTEL , TAXI, TRANSPORT, RESTAURANTS, , » » » AUT 
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YCEMIE 


Lorsque l'on est diabétique insulinodéfendant ou 
non, on doit surveiller son taux de glycémie. Un 
grand nombre de diabétiques le font par l'intermé- 
diaire de glycémies faites au bout du doigt. 

Ce programme permet de synthétiser les données 


10 'HARARARRARRAURRRRARRARARRRRARÉRRAUR 
KRA%YLGLYCEMIE par F. GRENIER><YXX%X% 
XAXREARRR copyright 1987 HXAXAAAAX 
LAURE URURUULÉRRRÉRERRRRRURRRRRRÉÉRE 

20 HKAKKKEX 
KMENUTK 
KAHHEE 

20 CLS: CONSOLE,,,,1:LOCATEZZ, 1: COLOR1,7, 

5 ATTREL, 1: PRINT"'GLYCEMIE” : ATTREO, O 

40 PRINT" Pour changer les limites Max 

et Min des glycemies corriger les lignes 

50 PRINT:FRINT" Si vous voulez conserve 

v ses lignes dans votre programme, SAUVE 

GARDER vitre programme sous le nom 

AUTQ.EAT'":FRINT 

ÉO PRINT”..1630 (Glycemie Min apres un r 


epas) .1540 (Glycemie Max apres un r 
épas) 
70 FRINT"..1630 (Glycemie Min avant un r 
epas) .1640 (Glycemie Max avant un r 
epas) 


30 PRINT”..2210 (Affichage des taux Glyc 
eniques sur le tableau mensuel) 


90 PRINT: FRINT" Si v 
QuSs voulez corriger tapez 1 
100 PRINT” 

passer tapez 2 


110 DECS=INKEYS:IF DEC#=""THEN110 ELSE 
DEC=VAL(DECS):IF DEC<1 DR DEC>2 THEN110 
120 IF DEC=2 THEN 160 ELSE LISTI520-1540 
: 130 

50 LISTIES0-1£40, 140 

140 LIST2210,150 

150 END 

160 SCREENA,S5 
170 A=0 

1£0 CONSOLE, ,,,0 

190 CES 

200 COLORA4,E: CLS 

210 LOCATE1Z,23:COLOR1,7,1: ATTRE1, 1: PRINT 
POLYCEMIEF 
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REPAIRE 





journalières et de les rendre sous forme de tableaux 
analytiques mensuels. Le suivi est prévu pour 20 ans 
et il tient compte des années bisextiles. Ce pro- 
gramme se charge en appuyant sur la touche «D» 
(selon modèle) et fonctionne sous basic 128 ou 512. 
Le prernier menu vous laisse la possibilité de modi-- 
fier les limites glycémiques du programme. Pour ce 
faire 5 lignes sont listées à l'écran: pour modifier un 
paramètre, amenez le curseur sur les valeurs suivant 
GL(DAT.)>= et corrigez-les. Les lignes 640 690 
1280 et 2570 fixent les nouvelles places mémoires 
du tableau glycémique. La ligne 1860 réaiguille les 


instructions IF THEN et ELSE. 

Philippe GRENIER 

220 LOCATE1S,7:COLORA4,E, 1: ATTREO, O0: PRINT 

"MENU 

230 LOCATEZ, 10:FRINT"-Effacer un mois... 
A Done Cu C1) 

240 LOCATEZ, 12: PRINT”-Commencer un mois. 

ARR TR. : (2) 

250 LOCATES, 14:PRINT”"-Entrer des donnees 

rs MCE 

260 LOCATEZ, 1€: PFRINT”'-Avair les resultat 

5 mensuels..(4) : 

270 LOCATEZ, 15:FRINT"-Consulter les fich 

DS is . - ur e OS 

250 LOCATEZ, 20:PRINT"-Sortir du progrann 

PP RE Ce) 


230  LOCATE7, 22: PRINT"-VOTRE CHOIX 17° 
200 DECS=INHEYS:IF DEC#$=""THENZ9SO ELSE D 
EC= =VAL(DECHI:IF CEC£1 OR DEC*E THENZ90 
210 ON DEC GOSUB 3270,460,650,12E€0,2S50,2% 
470 
BEO REREKEEEEEXEREREEEEX 
KEFFACEMENT DE MOISX 
UT OKÉFEKEEEEEREEFEEEEERE 
DSONCLS 
740 ON ERROR GOTOZ510 
250 LOCATES, S: COLORO, 1: PRINT'QUEL MOIS V 
OULEZ-VDUS EFFACER’ 
260 LOCATEIS, ES INPUT®#,MOISS: IFMOISS=""T 
HEN3EO 
570 LOCATE1Z,7:PRINT"'DE QUELLE ANNEE” 
350 LOCATEIS,S: INPUT", ANS: IFANS=" "THEN 
50 
390 LOCATEO, 10: COLORO, 1: PRINT"ATTENTION 
VOUS ALLEZ EFFACER CE FICHIER ” 
400 LOCATES, 15: PRINT'"'Etes-vous d'accord 
O/N 
410 DECS=INKEYS: IF DEC$=""THENA4OO ELSE I 
F DEC$="0" THENA20 ELSE IF DECS="N" THEN 
200 ELSE400 
4ZO MOISS=LEFTSCMOISS, 4) +ANS+", 
420 KILLMOISS 
A4O RUN 1E0 
ASO HKEREREREEAEEMEFTETE 
XCREATION GE MOISY 
EÉEREEREEFEEKEREEE 





DAT” 





REPAIRE 


460 D$=" CREATION DE MOIS ” 

470 CLS: E=1:LOCATEZ, 4: COLORI,7,0:ATTREA, 

1: PRINTD#: ATTREO, O 

450 LOCATE7, 15: COLORA4, 

e mois. .:",X# 

430 IF X#=""THEN4SO 

500 LOCATE14, 14% INFUT"l'annee..:",AN# 

510 IF AN$="" THEN5O0 

520 IF LENCANE)£4 THENLDCATEZ4, 14: PRINT” 

#2 LOCATEZA4, 145 INPUT”", ANS: GOTOS10 

530 IF LENCANS)>4 THENLOCATEZA4, 14: PRINT” 

"sLOCATEZ4, 14: INPUT?" ,AN#: 


,1: INPUT'Entrez 1 


GOTA510 
S40 COLDRA,E 
S50 D0 
SEO READ MDISS,JOUR 
570 E=O:IF MOISS=X$ THENEXIT 
S80 E=Z: IF MOISS-"MOIS" THEN CLS: ELOCATE 
£,15,0:COLORIL,O: PRINT "Votre mois n'exist 
e pas”"::PLAY”"LSEO3SDOP":EXIT 
S90 LOOP 
500 RESTORE 
£10 IF E=SANDD=STHEN7OO 
620 IF E=STHENGOTO450 
220 IFD=STHENRETURN 
640 IF DEC$="2"THENOIMGL(32,40 >: GOTO710 
SO KEXEERENMKARERAEERERX 
KENTREE DES DONNEES*# 
ÉEREERAEIRHACEÉENEREEX 
360 RUNE70O 
270 ON ERROR GOTO*510 
650 D=S:DS="ENTREE DES DONNEES” 
ESC DIMGLC 32,40): DY="ENTREE DES DONNEES” 
700 GOSUE1 130 
710 XF=MDISS: IFX#="FEVRIER" THENGOTO1E d-18) 
720 COLORA4,E:CLE 
730 DAT=DAT+1:IF DAT:JIOUR THEN GOSUEZS40 
740 COLOR4,6, 1: LOCATEIZ, 1: PRINT MOISS:LO 
CATEZS, 1: pes COLORA,E 
750 COLOFRA4,E, 1: LOGATES, 10: FRINT matin & 
RUE 
760 COLORA,E6: LOCATES, 11: PRINT "matin apre 
s as : 
770 COLORA4,E,1: LOCATES, Z:PRINT' midi ava 
nt ne DR es soie 
720 COLORA4,E 
dejeuner... ..... 
730 COLORA,E,1: LOCATES, 14: PFRINT'ssir ava 


Fr 
Q 
Le 
D 
= 


, 13: FRINT"midi apres 


NE CINE... . 0... se 

ECO COLOR4 ,: 5: LOCATES, 18: PRINT" sir apres 
AE ne rire “ 

510 COLORA,E, 1: CREME FRINT’autre. 


nr ei atieen 17: PRINT'autre. 


M RE Tin noue 


60 KÉFEKKEKERER ER EE EXERX 
POSITION DU CURSELIREX 
EREXKERERKELEEEERAMERE 
SEO COLOFRA,E, 1: LOCATE 7,3: PRINT'ENTREZ L 
EE": DAT: LOCATE13,3: PRINT"eme TOUR” 
£70 LOCATEA4,S:FRINT'”'Entrer vas resultats 
en g/1 
560 COLORA4,6,1:LOCATES1, 10: INPUT" #,GL$: 
IF GL$="” THEN GLCDAT,1)=9 ELSE GL(DAT, À 
3=VAL CGL#) 
590 COLOR4,E:LOCATEZI,11: INPUT” ",GLE:IF 
GL$="" THEN GLCDAT,2)=9 ELSE GLCDAT,2)= 
VALCGLS) 


300 COLOKA,8,1:LOCATEZL, 1%: INPUT" ° ,GLE: 
IF GLg="" . GLCDAT,2:)=9 ELSE GL(DAT,S 
)=VAL< GLS) 
2310 COLORA,E£:LOCATEZS1, 12: INPUT" ",GL&: IF 
GL$="" Sp GLIDAT,4)=9 ELSE GLCDAT, 4i= 
VALCGLS) 
920 COLORA4,6, 1: LOCATEZ1,14: INPUT” ",GLS: 
IF GL$="" EN GLCDAT,5)=3 ELSE GL<DAT, LS 
)=VALCGLE) 
3930 COLOFA,6:LOCATEZ1, 15: INPUT" ae: IF 
GLæg="" THEN GLDAT,£)=2 ELSE GLCDAT,6)= 
VAL GLS) 
940 COLORA,6, 1: LOCATEZ1,1ES INPUT" ",GL$: 
IF GL$="" LE GLCDAT,7)=9 ELSE GLCDAT, 7 
)=VAL(GLS) 
350 COLORA,E:LOCATEZS1, 17: INPUT? ",GLŒ:IF 
GL$="" THEN GLCDAT,S)=9 ELSE GLCDAT,£)= 
VALC GL.&) 
SEO COLOR4,6,1:LOCATEZ1,1S5: INPUT" ",GLS#: 
IF GL$="" ER GLECDAT,9)=9 ELSE GLCDAT, 93 
)=VALCGLS) 
370 COLORA,É:LOCATEZ1, 19: INPUT" ",GLS$:IF 
GL$="" En GLCDAT,10)=9 ELSE GLCDAT,10 
3=VALCGL#) 
3980 E=1:CDLOR7, 1, 1: LOCATEL, 20: FRINT"Voul 
ez-vous!”:COLOR4,E6,1:LOCATES, 21: FRINT’"-C 
orriger votre fiche C1": COLOR4,£: LOCA 
TES, ZZ: PRINT"'-Entrer d'autres fiches (C2) 
":COLDRA,E, 1: LOCATES, ZS: PRINT"-Revenir a 
u MENU (RE à 
9930 DECH=INKEVSS IF DEC$=""THENGOTOSEO 
1000 IF DEC$="1" THEN DAT=DAT-1: GOTO720: 
"VOIR FOUR CORRIGER LINE FICHE 
1010 IF DEC$="2" THENGOTO72#0 : ’ VOIR FOUF 
ENTRER UNE AUTRE FICHE 
1020 IF DECS$="5" THENGOTO1040 
1030 GOTO3EO 
LOAO EF ERKEEEREREMAEEEEEX 
#SAUVEGARDE FICHIERY# 
ÆRÉERER EEE ARE HAUEHACK 
1050 OPFEN"0",#H1,LEFT£ECMOISS®$, 4) +AN$ 
1060-DAT=1 
1070 IF GLCDAT,1)=0 THEN1110 
1050 WRITE#H1,DAT,MOISS,GLCDAT,1),GLCDAT, 
23,GLCDAT,5) ,GLCDAT, 43,GLCDAT,5),GL(DAT, 
€): GLCDAT, 7),GLCDAT,£),GLCDAT,9),GLCDAT, 
10 
1090 DAT=DAT+I 
1100 GOTO1070 - 
1110 CLOSEKH1 
1120 RUN 160 
1170 EKEKEREREERERELEERES 
* CHARGEMENT FICHIERX 
RENE ER ER ERREUR 
12140 CS 
1150 ON ERROR GOTO?6510 
1160 D=S: GO05UE470 
1170 MOISS=LEFTS(MOISS, 4) +AN$+", DAT” 
1150 OPEN"I",#1,MOISS 
1190 DAT=0 
1200 IF EOF(1)G0T01:40 
1210 DAT=DAT+1:0=DAT 
1220 INFPUT#1,DAT,MOISS, GL(DAT,1),GLCDAT, 
2),GLCDAT,5),GLCDAT,4),GL(CDAT,5),GL(CDAT, 
E), GLCDAT,7),GLCDAT,5), GLCDAT,9),GLCDAT, 
103 
1220 GOT01200 
1240 CLOSE#HI 
1250 RETURN 
12EO KKEKAMKEREREERENREAREEE 
#RESULTATS MENSUELS #Æ 





1270 CLS 2 RUNI 280 
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1£50 DIM GL(C32,40) 

1290 CLSILOCATEZ,3%:COLORI,7,0:ATTRE1,1:F 

RINT'RESULTATS MENSUELS”: ATTREO, O: COLORA 

El 

1300 LOCATEZ, 13: ATTREO, O0: INPUT”"Entrez le 

Mois. . 1" ,X$ 

1310 IFX$=""THEN1300 

1320 LOCATE14,14:INPUT"l'annee. !:",ANS 

1230 IFANS=""THENLZ2ZO 

1740 IFLENCANS) <ATHENLOCATEZ4, 14: PRINT” 

#ILOCATEZ4, 14: INEUT”", ANS: GOTO13230 

14350 IFLENC ANS) *ATHENLOCATE24 , 14: PRINT" 

#eLOCATEZA, 14: INPUT", ANS: G 


1:60 COLORA4, 

1370 DO 

1:60 READ MOISS$,.IOUR 

1390 IF MOISS=XS THENEXIT 

1400 IF MOISS="MOIS" THEN CLS: LOCATE €, i 
5,0: COLORL,OSFRINT"Votre mois LA 'existe F 
as" 3: PLAY"L960: “DOP":E=1:COLORA,E,1:EXIT 
1410 LOOF 

1420 RESTORE 

1430 IF E=IiTHEN GOTO1Z70 

1440 ON ERROR GOTOZ510 

1450 Ezi 

14£0 GOSUE 1170 

1470 DAT=OS I1=0 

1450 DAT=DAT+1 

1490 I=l+2 

1500 IF GLCDAT,1)259 THENI1SEO 

1510 IF I=£ THENISEO ELSE1490 

1520 GOSUER1530 

1530 IF GL(DAT,1I)>=1.2 THEN 1540 ELSE GO 
SUE 1240 

1540 IF GLCDAT,1)£=1.6 THEN 1550 ELSE GO 
AUE 1850 

1560 IF I1=£ THEN 1560 ELSE I=I+2:GOTO 15 
00 

1560 IF DAT=D THEN 1570 ELSE I1=0:GOTO 14 
SO 

1570 DAT=O::I=-1 

1560 DAT=DAT+1 

1590 I=I+E 

1600 IF GL(DAT.1)<>:9 THENIEZO 

1610 IF I=S THENIEEO ELSE 159 

1820 GOSUE1E52:0 

1830 IF GLCDAT,I)>=0 2THEN 1£40 ELSE GDS 
UE 1540 

1640 IF GLIDAT,1)£=1.4 THEN 1650 ELSE GO 
SUE 150 

1860 IF 1=5 THEN.-1660 ELSE I=1+2%:GO0TO 16 
0 

1660 IF DAT=D THEN 1670 ELSE 1=-1:GOT0 1 
520 

1670 DAT=O:I=E 

1680 DAT=DAT+I 

1590 JI=I+1 

1700 IF GLCDAT,I) <:9 THEN GOTO1720 

1710 IF 1=10 THENI17ÉO ELSE GOTO1E90 

1720 AFC7)=AFC7)+GLCDAT, I INC7I=NC72+1 
1730 IF GLCDAT,1)=.8 THEN 1740 ELSE HYP 
0€C7)3=HYFOC7)+1 

1740 IF GLCDAT,1I)£z1.4 THEN 1750 ELSE HY 
PERC7)=HYPERC73+1 

1750 IF I=10 THEN 17€0 ELSE I=1+1:G0T017 
06 

1760 IF DAT=D THEN 1770 ELSE I=6:G0T0 i£ 
EQ 

1770 I=0 

1780 I=I+i 

1790 IF NCI)=0 THEN GOTDiS510 

1800 XCID=CCINTCCAPEI)/NCID2#1003)/100:F 


, 
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HYÉOTIT=CÉINTE CHVÉDC TI /NCTDD#100O09 I /I0LF 
HYPERC I) =CCINTC CHYPERCI)/NCI33#1000)/10 
1510 IF I=7 THEN 1870 ELSE GOTO 1780 
1580 ?EEKAEEEFEEEEERETE 
FSOUS-FROGRAMNMESXE 
HÉLERELEEKEERENEEX 
1520 APCI)=APCI)+GLIDAT.I)INCID=NCII +R 
ETURN 
1540 HYPOCI)=HYPOCI)+1: RETURN 
1850 HYPERCI)=HYPERCI)+1: RETURN 
15860 ANNEVAL: ANS) /45 ANNE=INT € VAL CAN#) /4) 
2IF ANN£YANNE THEN JOUR=JOUR-1:60TO 720 
ELSE GOTO 720 
1870 ?HREELEEEMKEELEEEREREEE 
XTAELEAU D'AFFICHAGEX* 
KRESULTATS MENSUELEXX 
ER ER EE ER EEE AEEELAEX 
1550 CONSOLE, ,,,1 
1290 FALETTEO, 240: FALETTEI,0 
1300 ATTRE1, 1: LOCATEO, 3: PRINTMOISS$+AN# 
1910 LOCATEZS, 7:FRINT" 1 2) C) 4 S 
£ 7": ATTREO, 0 
1920 LOCATEZ, 10: PRINT "Nombre de glycemi 
es 
1330 LOCATES, 12: PRINT "Moyenne 
1940 LOCATEL, 14: PRINT Nombre d'hypoglyce 
miss 
1950 LOCATELZ, LES PRINT"% 
1960 LOCATEL, 15: PRINT "Nombre d’'hyperglyc 
emies 
1970 LOCATEIZ, ZOSPRINT"'Y# 
950 CONSOLE, ,,,1 
1390 LINECO,44)-CE40, 44) 
2000 LINECO,73)-(C640,72) 
2010 LINECO,89)-(C640,29) 
2020 LINECO,105)-(CE640,1053 
2030 LINECO,1213-C£40,121) 
2040 LINECO,137)-C640,177) 
2050 LINECO,153)-C640,1523) 
2060 LINECO,169)-C640,1€3) 
2070 LINE(C199,44)-(199,169) 
2080 LINECZE1,44)-(261,169) 
2090 LINEC323,44)-(C523,1€69) 
2100 LINEC3SS,44)-C385,169) 
2110 LINECA447,44)-C447,1E9) 
2120 LINECSIS,44)-C515,169) 
2120 LINECS77,44)3-(577,169) 
2140 LINECES9,44)-CÈ39, 169) 
2150 LINE(CO,44)-(199,73) 
2160 LINECO,753-(199,44) 
2170 LOCATEZS, 1'PRINT”1:Matin a jeun’:LO 
CATEA44, LEPRINT"£i Matin apres le petit de 
Jeuner "TT 
2150 LOCATEZ8,2: PRINT"3:Midi a jeun”’:LOC 
ATE44, 2: PRINT" 4: Midi apres le dejeuner” 
2190 LOCATERS, 3: PRINT"SiSoir a jeun’: LOC 
ATE4A4,3:PRINT"'E: Soir apres le diner“ 
2300 LOCATEZS, 4: FPRINT"7: Autres” 
2210 LOCATEL1,22:PRINT'TAUX a jeun 0.S0< 
<GL£=1.40 : apres repas 1.20{=GL<=1.E0": 
LOCATEZS, ZT: PRINT"Voulez-vous revenir au 
MENU O/N" 
2220 LOCATEZ7, 10: PRINTNC1):LOCATEZSS,10:F 
RINTNC2):LOCATEAZ, 10: FRINTNCS) : LOCATESO, 
10: PRINTNC4): LOCATESZ, 10: PRINTNC 5) :LOCAT 
EEE, 10: FRINTNCE : LOCATE 74, 10: FRINTNC7) 
2730 LOCATEZES, 12: PRINTX{1):LOCATEZS,12:F 
RINTXC2):LOCATEA4I, 1Z: PRINTXC3):LOCATEAS, 
12: PRINTX(C4): LOCATES7, 12: PRINTXCS):LOCAT 
EES, 12: PRINTXCE) 2: LOCATEZ3, 12: FRINTX(7) 
2240 LOCATEZ7, 14: PRINTHYFOC1):LOCATEZE, 1 
A: PRINTHYPOCE) : LOCATEA®*, 14: PRINTHYPOC2: 
LOCATESO, 14: PRINTHYPO(4):LOCATESS, 14: FRI 
NTHYFOCS):LOCATESE, 14: FRINTHYPOCE) SLOCAT 
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D] 
EPA dAar PRINTHYPDC 7) 

22650 LOCATEZE, 16: FRINTPFHYFO(C1):LOCATESA, 
16: FRINTPHYPOC2):LOCATEAL, 16: FRINTFHYPO(C 
3): LOCATEA43, 16: FRINTFHYFOC 4): LOCATES7,1E 
: FRINTPHYPO(CS): LOCATERS, 16: FRINTPHYPOCE) 
:LOCATEZ73, LES PRINTPHYPO(C7) 
2260 LOCATEZ7, 15: PRINTHYPER(1):LOCATEZSS, 
LS: PRINTHYPER(C23: LOCATEA4Z, 18: PRINTHYPER(C 
33: LOCATESO, 18: PRINTHYPERC 45: LOCATESS, 15 
SFRINTHYFERCS)S LOCATEÉE, LS: PRINTHYFERCE) 
2LDOCATE?74,1S: PRINTHYPERC7) 
#270 LOCATEZE, ZOS FRINTPHYFERC 1): LOCATEZA4 
: SOS FRINTFHYFERC2) : LOCATEA1, 20: PRINTFHYE 
ERCESSLOCATEAS, 20: FRINTPHYPERCA4) :LOCATES 
7, 20% PRINTPHYPERCS):LOCATEES, 20: PRINTFHY 
FERÇE):LOCATEZS, 20: FRINTFHYPER(C7) 

2250 LOCATESS,22,0:DECS=INKEYS:IF DEC$=" 
#THENZZEC 

2790 IFOEC$S="0"THENISO 

2300 IFDEC$S="N'"'THENEEE 
GOTO22320 
CONSOLE, ,,,C:COLORA4,E£: END 
PELEEAREEKEË 

DATA MOISX 

ÆEXEFEEERKANEK 
DATA JANVIER, 31 
Oo DATA FEVRIER, 23 
DATA MARS, 5 

DATA AVRIL,230 
QATA MAI,=i1 
DATA JUIN,20 
ù DATA JUILLET,31 
DATA AQUT, 31 
DATA SEPTEMERE, 30 
2420 DATA OCTOEBRE, 31 
2440 DATA NOVEMERE, 30 
SASC CATA CECEMERE, 31 
2460 DATA MOIE,0 
EA7O 'ÉEFENERELEELEEERERE 
ÆSORTIE DU FICHIEFR# 








5 HAE EE CEE MERAE 
2480 CLOSE#1 
2490 SCREENO,6,6: COLORA, 6: CLS: END 
ES00 EEE EEENEEEREEEEENAUE 
GESTION DES ERREURSX 
FLE EEXEEEEFEEEIÉKEEEREX 
2610 IF ERR=71 THEN 2520 
ES#0 CLS:LOCATES, 15,0:COLORI,O:ATTREIL, 1: 
PRINT'FICHIER VIDE !!"3::ATTREO,O:FLAY"'LS 
SO3DOP?": RESUME 190 
2530 CLE:LOCATES, 13,0: COLOR1,0:ATTREO, i: 
PRINT'VEUILEÉER METTRE Lé DISQUETTE 1 T3: 
ATTREO, 0: FLAY"LSEOZDOF": RESUME 190 
2640 CLS: LOCATE10, 4,0: COLORI, OS: ATTRE 1,0: 
FPRINT'LE MOIS DE": LOCATEO7, E: PRINTMOISS$+ 
" M+ANS:LOCATE1Z,S :PRINT'N'A QUE’”:LOCAT 
ES, 10: PRINTJOUR: LOCATE1Z, 12% PRINT '"JIQURS 
11#5 5: ATTREO, O: FLAY”"LSEOZDOF":IFE=]THENS 
SOELSEGOTOIED 
ÉSSO HRÉEMEEMEMEEEEXEREEXERAEEERE 
VISUALISATION O'UNE FICHEX 
EEREEM EL EKEEEEEELLERAEKEHRAEE 
2560 CLS: RUNES70 
2570 ON ERROR GOTOËS10:DIM GL(C 32,40: 
2520 LOCATES, 3:COLOR1,7,0:ATTREO, 1:FRINT 
MUISUALISATION DES FICHES":ATTREO,O 
S590 LOCATE7,13:COLORA,E6, 1: INFUT "Entrez 
le mois. 1",X$ 
2600 IFX$=""THEN2S90 
2610 LOCATE4,14: INPUT” l'annee .:",ANS 
SEZO IFANS=""THENZEIO 
2830 IFLENCANS) <ATHENLOCATEZ4, 14: FRINT” 
#: LOCATEZ4, 14: INPUT”", ANS: GOTOZE30 


2£40 TIFLENCANSE) > ATHENLOCATES4, 14: PRINT?” 
#2:LOCATEZA4, 145 INFUT"", ANS: G 





2690 TE MOISS="MOIS" THEN CLE:LOCATE 5,1 
5, 0: COLORI , OS FRINT”Vatre mois n'existe p 
a" 3 : PLAY"L9602D0F":Ex1: COLORA,£,1:EXIT 
2700 LOOF 
2710 RESTORE 
2720 IF E=1 THENGOTOZSSOELSEGOSUE 1170 
2730 COLOR4,E 
2740 DAT=0 
2750 IF DAT<JIOUR THENGOTOZ7EO ELSE GOTOZ 
260 
270 DAT=DAT+1:IF GLCDAT, 192 =OTHENGOTO2SE 
[a] 
2770 CLS: COLORA4,6, 1: LOCATES, 1: PRINTDAT: 
ne dd 
2750 COLORA4,E,1:LOCATES,ES:FRINT "Matin a 
.. .3"3IFGLCDAT, 1)=STH 
ENZ790ELSELOCATEZS, 8: PRINTGLCDAT, 1) 
2730 COILORE, 4, 1:LOCATES,S:FRINT "Matin a 
pres le petit-dejeuners":IFGLCDAT,2)=3TH 
ENZSOOEISELOCATESS, 9: PRINTGLCDAT, 2) 
2800 COLORA4,6, 1: LOCATES, 10: FRINT'"Midi a 
UT de ee se .: "3 IFGLCDAT,3)=9TH 
EN2810ELSELOCATEZZ, 10: FRINTGLCDAT,5 
2210 COLORE., 4, 1: LOCATEZ, 115 PRINT"Midi ap 
res le dejeuner. ...... :"*IFGL(DAT, 4)=3TH 
EN2£ZO0ELSELOCATEZZ, 11: FRINTGLCDAT, 4) 
2520 COLORA,E, 1 LOCATEZ, 12: PRINT'Ssir av 
En le diner. .,.... .:”: IFGLODAT,S)=9TH 
SBSOELSELOCATES3, 12 : PRINTGLCOAT, 5) 
2530 COLORE, 4,1: LOCATEZ, 12: PRINT"Soir ap 
Fesile diner... ... ... 2": IFGLCDAT,6)=9STH 
Fes ACELSELOCATEZS, 13: PRINTGL(DAT, 6) 
S40 COLORA,E, 1: LOCATES, 14: FRINT”Autres. 
1": IFGLCDAT, 73=9TH 
N2BSOELSELOCATEZS 14: FRINTGLCDAT, 7) 
pe COLORE, 4, 1: LOCATEZ, 15: PRINT'Autres 
D UC CT Tr 2": IFGLCDAT,S5)=9TH 


2E650 COLORA4, £,1:LOCATES, 1e: PRINT'Autres. 


EN2870ELSELOCATESS, 16: PRINTGL (DAT | 5) 

2870 COLOFRE,, 4, 1:LOCATEZ, 17: PRINT'Autres 

ce de ER "2 IFGLCDAT,10)=97T 
HEN285 'OELSELOCATEZZ, 17: PRINTGL(DAT, 10) 

2880 COLOR4,E, 1:LOCATEO, 19: PRINT" Voul ez-— 
vous: “:COLORA, 6: LOCATE 12, 19: FRINT”"-Voir. 
le fiche d'avant. (1)” 

290 LOCATELZ2,ZO:FPRINT"-Vuir la fiche d' 
apres. C2» 

2900 LOCATE1Z,Z1:PRINT"-Voir une date. 
2310 F7 UNIS FRE au menu. 
SR 430 
2920 DECS=INÉEYS: IF DECS=""THEN?S80 
2930 IF DEC#&=" 1" THENDAT=DAT-E: IFDAT>-1TH 
ENGOTOZ7S0ELSEDAT=DAT+2: GOTO2SE60 


2940  IFDEC$="2"THENDAT=DAT+1: IFDAT:JOUR 
THEN DAT=DAT-1:GOTOZ2220 ELSE IF GLCDAT, 
13=OTHEN DAT=DAT-]i: GOTOZESO ELSE DAT=DAT 

—1: GOTO2750 

2950 IF DEC+="3"THENCOLORA , €, 1: LOCATE1Z, 

AISPRINTE= QUELLE LOUP, Une 

ATEZE, 21: INPUT ”",DASIF DAXJIOUR THEN GOTO 

ZLÉAROELSEIFGL(CDA, 13=OTHENZESOELSEDAT=DA-1 
: COLORA, €: GOTO2750 

Z9£O0 IF DEC$="4"THEN GOTO 190 

2970 GOTO23920 
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LE JEU DES 


CAPITALES 


1 SCREEN 3,0,8 
$ CLS 


6 LOCATE 8,10:COLOR 4,3:PRIMT"UN MOMENT DE PATIENCE, SVP. ..": 
10 RON“ PAYE2" ; "otre 


5 “PAGE À EN TETERAAARARRRRRRRARRRNANRARAR 


10 CLS 
11 LOCATES,10:COLOR4:PRINT'LE JEU DES CAPITALES" 
12 LOCATES, 11 : COLORL : PRINT" ----""""" : 


13 COLOR O:ATTRB0.0:LOCATES,21:PRINT"(c) SALORT Paul mars 1988":LOCATE 6,0,0:ATT 
RBL:PRINT*TOS TOY TO9+" : ATTREO, 0 
14 PLAY "PPPPPPPPPPPPPPP" 

15 CLS 

20 CLEAR(10000) 

30 LOCATR 0,8:PRINT"APPUYEZ SUR UNE TOUCHE POUR JNITIALISER LES NOMBRES ALEATOIR 
ES “:POR I=0 TO 9999:ARND:1F INKEYS$="" THEN NEXT 
99 * DESSIN DK LA MAPPEHONDERAanarannmnas 
100 SCREEN3,8,8 

110 CLS 

120 PSET(20.25) 

130 POR I=1 TO 100 

140 READ X,Y:LINE-{X,Y) 

150 NEXT ] 

160 P##T( 90,19} 

170 FOR I=1 TO 19 

180 READ X.Y-LINE-(X,Y) 

190 NEXT I 

200 PSKTI 70,19) 

210 FOR I=1 TO 8 

220 READ X,Y:LINE-(X,Y):NEXT I 
230 PSET(60,25) 

240 POR Ie1l TO 12 

250 READ X,Y :LINE-(X,Y):NEXT I 
260 PSET(93,35) 

270 FOR In1 TO 4 

280 READ X,Y:LINE-(X,Y}:NEXT 
290 PSET(64,137) 

300 FOR I=1 TO 4 

310 READ K,Y:LINE-(X,Y):NEXT 
320 PSET(S9.141) 

330 FOR 1=1 TO 4 

340 READ X,T:LINE-{X,Y}:NEXT 
350 PSRT(152,22} 

360 FOR I=1 TO 197: 

370 READ X,Y:LINE-(X,Y):NEXT 
380 PsET(135,110) 

390 FOR I=1 TO 5 

400 READ X,Y:LINE-(X,Y):NEXT 
410 PSET(210,110} 

420 FOR I21 TO 31 

430 READ X,Y:LINE-(X,Y):NEXT 
440 PSET(98.41) 

450 FOR I=1 TO 5 

460 READ X,Y:LINE-(X,Y}:NEXT 
470 PSET(94.45) 

480 FOR I=1 TO 5 

490 READ X,Y:LINE-(X,Y}:NEXT 
500 PSET( 210,95} 

510 FOR I=1 TO 9 

520 READ X,Y:LINE-(X,Y):NEXT 
530 PSET(225,129) 

$40 FOR I=1 TO 5 

550 READ X,Y:LINE-(X,Y}:NEXT 
560 PSET(220,135}) 

570 FOR 1:1 TO 6 

580 READ X,Y:LINE-(X.Y):NEXT 
590 PSET(193,44) 

600 FOR I=1 TO 3 

610 READ X,Y:LINE-(X,Y):MEXT 
620 PSET(197,48) 
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Pour tous ceux qui aiment la géographie ou qui ont sé- 
rieusement besoin de la réviser ! Ce programme très 
complet vous donne les renseignements de base sur 
tous les pays du monde ou presque. De plus la pré- 
sentation est très réussie. Pour charger ce programme, 
écrit en basic 512, vous devrez d'abord taper le petit 
programme (ligne 1 à 10) que vous sauverez sous le 
nom «AUTO. BAT»: puis le programme principal que 
vous sauverez SOUS le nom «PAYS2.BAS». Pour le 
charger, tapez B sur TO8 ou TO9+ et D sur TO9 (fonc- 
tionne sur TO8,T09+ et TOS). 

Si vous connaissez déjà la capitale de la Namibie, ce 
n'est peut-être pas la peine de taper ce listing, sauf si 
vous voulez savoir sa population … 


Paul SALORT 


630 FOR J=1 TO 4 

640 READ X,Y:LINE-(X,Y}:NEXT 

650 PSET( 200,55} 

560 FOR I=1 TO 5 

670 READ X,Y:LINE-(X,Y):NEXT 

580 PsETi195,61) 

s90 Ps#7(191,68) 

700 PS#7i190,85) 

710 FOR I=1 TO 7 

720 READ X.Y:LINE-(X,Y):NEXT 

730 PS#7(175,87) 

740 FOR Ia1 TO 4:READ X,Y 

750 LINE-(X,Y):NEXT 

760 PSE#7(183,97) 

770 FOR I=1 TO 4 

780 READ X,Y:LINE-(X,Y):NEXT 

790 PSET(190,99) 

800 PS#r(194,90) 

810 FOR I=1 TO 4 

820 READ X,Y:LINE-{X,Y):NEXT 

830 PexT(197,85) 

840 FOR Is1 TO 5 

850 READ X,Y:LINS-(X,Y):NEXT 

860 P3#87(193.80) 

870 PSET(195.80) 

880 PS#7(192,74) 

890 FOR J=1 TO 3 

900 READ X,Y:LINE-(X,Y):NEXT 

910 PS#7(200,132) 

920 ‘ANTILLES: PSET(49,75):P8ET(S1.76):PSET(52, 78): PSET(53,80) 

930 PSKT(40,71) 

940 FOR I=1 TO 4 

950 READ X,Y:LINE-{(X,YI:NEXT 

960 PSET(44,74) 

970 FOR I=1 TO 3 

980 READ X,Y:LINE-(X,Y}:NEXT 

990 PSKTI134,24) 

1000 FOR 1=1 T0 5 

1010 READ X,Y:LINE-(X,T):NEXT 

1020 PS#7T(135, 50) 

1030 FOR Is1 TO 8 

1040 READ X,Y:LINE-(X.Y)}:MEXT 

1050 PSKT{111,21) 

1060 FOR Is1 T0 4 

1070 READ X,Y:LINE-{X,Y):NEXT 

1079 ‘PRESENTATIUN DE L'ECRAN DE JEURAm2R2RnP a RRRARRRRRRRRRRNANRTERARALEREAA RAR 
* 

1080 BOX(0,0)-(230,145),4 

1090 BOX(0,150)-(230,194),4 

1100 BOX(232.0 )-[319.25),4 

1110 BOX(232,27)-(319,143),4 

t120 LOCATE30, 1: COLOR3, 4 
130 LOCATE 30,4-PRINT'KM2 : * 

140 LOCATS 30,10:PRINT*POP en“:LOCATE 30.11:PRINT'millions:" :COLOR3,8 
150 DIM PAYSS(176}:DIM CAP$(176}:DIM POPS(176):DIM SUPS#{176):DIM COL(176):DIM L 
G(176):DIM G(176) 

199 °LE JEURRRRRRRR ERA ANARRANTAANANÉRÈTER RATER RRRRRAR RAR ER LANARRERARARER 
« 

1160 G=0:2=0 

1170 FOR I=1 TO 176 

1180 READ PAYSS8{1),CAPS(I}.POP#i1).SUP$(I),COL{I),LIG{I) 

1190 NEXT J 

1200 P=INT(RND*176}+1:1P G{P)<>0 THEN 1200 

1210 LOCATE 30.6:PRINT" “:LOCATE 30.13:PRINT" Ei 

1220 LOCATE30, 6 : COLOR4 ,3: PRINTAUPS(P}:COLOR3,8 

1230 LOCATE 30.13:COLOR4, 3: PRINTPOPS(P } ; : COLOR3, 8 

1240 BOX(0,150}-(230,194).4:LOCATE 1,22:PRINTPAYSS{P):PSKT(COL(P),LIG(P)),1 
1250 LOCATE 1,23: INPUT 'CAPITALR:"; K$ 

1260 PSET(COL(P),LIG(P)).8:1P KS<>CAPS(P) THEN 1270 ELSE 1310 

1270 COLOR 4,3:LOCATE 1.20:PRINTCAPS{P) : PLAY” PPPPPPPPPPPP” :COLOR3, 8: LOCATE1 ,20:P 


25 











REPAIRE 





1280 Z=Z+1:LOCATE 31,20:COLOR1 :PRINT Z:COLOR3:LOCATE 31,21:PRINT'ERREUR(8)" 
1290 LOCATEL,22: PRINT” C2 
1300 LOCATE1,23: PRINT" #:GOTO 1200 
# 
”:G(P)z1:6=G+1 


1310 LOCATE1 ,22:PRINT" 
COLOR 3,8:1F G<176 THEN 1200 


1320 LOCATE 1,23:PRINT" 
1330 LOCATE 33,2:COLOR 4,3:PRINT 
RERRRRRRRRRRRRRRRARERERRERRARRAERLRE RARE R 


1339 ‘FIN DU JEURARARRAARRRARÈR TR 
* 








1340 CLS:LOCATE 5,S:PRINT"VOUS AVEZ TROUVE LES 176 CAPITALES EN :";G+2; "COUPS" 
1345 I-G+2 

1350 LOCATE 10,10:PRINT'POURCENTAGE DE REUSSITE :":COLOR 4,3:PRINT USING “###.8# 
%:6/1*100:COLOR3, 8 

1360 A-G/1*100 

1370 COLOR 1,3:1F A<S0 THEN PRINT" VOUS POUVEZ RECOMMENCER TOUT DE SUITE! CE RES 
ULTAT N'EST PAS TRES BON !!":COLOR3,S 

1360 COLOR 4,3:1F Ad= 85 AND A<95 THEN PRINT'BRAVO! CE REBULTAT EST TRES HONORAB 
LE!":COLORI,8 

1385 1P A>=95 THEN PRINT "PARFAIT! VOS CONNAISSANCES SONT EXCEPTIONNELLES! JE N° 
AI PLUS RIEN À VOUS APPRENDRE EN GROGRAPHIE!!" 
1390 IP A>r50 AND AC8S THEN PRINT “RESULTAT SATISFAISANT, MAIS VOUS POUVEZ MIEUX 
FAIRE!" :COLOR3,8 

1399 ‘LES 00 
1400 "AMERIQU 
1410 DATA 24,24,27.24,32,26,37,26,40,27 

1420 DATA 43.28,52,28.95,25,57,26,57,28 

1430 DATA 56,29,58,31,68,38,51.42,54,41 

1440 DATA 57,37,61,39,62,38,65,43,64,45 

1650 DATA S8,47,58,49,57,51,56,50, 50,56 

1460 DATA 47,55,47,58,41,64,42,67, 41,68 

1470 DATA 40,67,39,65,38,62, 34,64,29,66 

1480 DATA 27,69,28,72,30,73,32,72,33,72 

1690 DATA 34,74,33,75,35,78,35,81,38,82 

1500 DATA 40,83,44,80,59,87,60,89,58, 91 

1510 DATA 59,93,62,93,72,97,72,100, 71,103 

1520 DATA 70,108,64,115,62,120,60,123 

1530 DATA 60,126,59,129,56,133,57,135 

1540 DATA 56.139,54,140,50,134,49,131 

1550 DATA 49.121,49,115,48,112,47,111 

1560 DATA 39,103,37,100,36,98, 36,95 

1570 DATA 39,87,39,85,38,84, 36,84 

1560 DATA 25,76,22,76,21,74,20,67,18,63,17,62,18,67 
1590 DATA 16,69,15,62,15,55,18,50,21,46,22,37 

1600 DATA 21,33,18,31,11,35,10,35,9,33,10,31 

1610 DATA 14,30,20,25 

1620 ‘GROENDLARD--- 
1630 DATA 92,20,95,20,96,22,94,25,90,27,85,33,80, 34,76, 37 
1640 DATA 74,36,73.33,74,30,76,28.73,24,74.21,76,21 

1650 DATA 79,20,84,20,88,19,90,19 

1660 ‘ILES GROEMDLAND----------""-- 

1670 DATA 73,19,70,22,67,23,66,22,65,21,67,20,68,19,70,19 
1680 *20ILE G-----"-"--"""""""" eme 

1690 DATA 63,26,65,26,68,30,67,32,65,32,64,35 

1700 DATA 60,31,62,30,62,29,59,27,59,26,60,25 

1710 ‘ISLANDE------— = 
1720 DATA 91,36,89,34,92,33 
1730 ‘FALKLAND-- 

1740 ,DATA 64,138,63,139,62,138,64,137 
1750" "TERRE DE FEU 
1760 DATA 58,142,57,141,58,140,59,141 

1770 ‘EUROPE, ASIE, AFRIQUE------ mme 

1780 DATA 155,22,157,25,163,25,167,24,172.26,180,25,188,25,192.24,201,26.202,27 
1790 DATA 199,29,199,32,198,34,198,35,200,37,200,40,198 , 40 

1800 DATA 195,36,195,32,194,31,191,34,187,36,185,38,188,42,190,44,191 ,46 

1810 DATA 189,50.189,55,187,55,185,54,189.62,189,65,188,68,185,71,181,71,181,73 
1820 DATA 182,78,182,80,181,82,179,81,178,80,177,80,177,81,179,86,179,88 

1830 DATA 176,94,175,81,173,79,173,76,170,75,166,72,165,74,163,78,161,81 

1840 DATA 161,82,159,83,156,80,154,74,153,72,150,70,136,66.136,67,137,69 

1850 DATA 139,69,141,70,144,73,143,75,141,78,136,79,134,74.129, 71 

1860 DATA 128.67,126,67,126,69,129,74,130,79,135.82,138,82,138,83 

1870 DATA 138,85,134,91,131,95,131,96,132,103,127,108,126,110,125,115 

1880 DATA 123,118,120.121.117,321,115,121,112,118,111,116.111,112,107,106 
ARSDPERTA 110.97.106,93.105.91.105,87.98.87.92.87.90.66,88,83.86.80,85,78,86,75, 
90, 

1900 DATA 91,67,93,64,95,62,100,60,105,60,187,60,109,61,110,63 

1910 DATA 114,64,115,63,120,64,123,64,125,63,126,61,125,60,121,59 

1920 DATA 120,58,120,57,122,56,124,55,128,54,125,51,123,92,121,52,120,55,117,56 
1930 DATA 117,59,115,60,115,58,114,55.112,53,110,52,169,53,110,54,113,56,113,57 
1940 DATA 112,58,111,58,111,57,108,54,106,54,103,55,100,57,98,59,95,59 

1950 DATA 94,59,93,58,96,55,96,53,98,53,99,52,98,50,97,50,97,49,98,49, 99, 68 

1960 DATA 100,48,100,49,104,46,106.45,107,42,108,43,109,45,113,41,118, 40 

1970 DATA 118,39,115,39,115,37,116,36,115,35,113,36,113,38,111,42,109,42,108,39 
1980 DATA 105,40,105,38,116,29,120,31,124,31,121,33,125,35,127,32,136,31,138,30 
1990 DATA 138,27,142,30,144,30,143,27,152,22 

2000 ‘MADAGASCAR------—-- 
2010 DATA 134,112,133,106,13 
2020 ‘AUSTRALIE 
2030 DATA 212,115,212,117,209,122,207,126,202,127,198,127,198,125,197,123,196,12 
2 

2040 DATA 194,122,190.124,187,124,184,124,183,122,184,118,184,116,184,113 

2050 DATA 190,110,193,108,194,107,196,105,199,105,202,102.204,103, 204, 106 

2060 DATA 205,107,207,107,208,105, 208,102,210,102,210,110 

2070 "ROYAUME-UNI --------"--"""-"- 

2080 DATA 100,44,101,46,97,47,98,45,98,41 

2090 *IRLANDE- - 
2100 DATA 95,44,94,45,95,48,93,46 
2110 "PAPOUASIE-NLLE GUINRE---- 
2120 DATA 212,97,215,101,210,99,207,99,206,97,204,94,206,94,207,95,210,95 
2130 ‘NLLE ZELANDEL 
2140 DATA 227,127,228,125,229,129,227,131,225,129 

2150 ‘MLLE XELANDE2----------"-"-"""-"""— 

2160 DATA 218,136,217,134,222,131,223,132,222,133,220,135 

2170 ‘JAPON 

2180 DATA 192,44,190,40,193,44,198,49,197,51,195,50,197,4B,196,58,194,58,198,55, 
199,53, 200,55 

2190 "FORMOSE-----—-— - 

2200 "PSET(191,68} 

2210 ‘BORNEO- 
2220 DATA 191 
2230 !INDONESIE-- - 
2240 DATA 1682,94,180,95,175,90,175,87 

2250 DATA 187,97,188,100,183,99,183,97,195,94,193.95,193,92,194,90,198,83,195,81 
193,83 

2260 DATA 194,85.197,85,194.78,191,77,192,74 

2270 ‘TASMANIE(PSET200 ,132}----------- 

2280 *CUBA 

2290 DATA 42,71,43,73.40,73,40,71.47,73,47,74,44,74 

2300 ‘ILES ARTIQUES-------—--—-""-"""""— 

2310 DATA 134,25,132,26,130,29,132,25,134,24 

2320 DATA 137,51,136,53,138,58,136.59,135,97,135,55,133,92,135,50 

2330 DATA 113,23,112,24,111,22,111,21 

2340 * - 

on : PAYS ÆT CAPITALES 
2360 ‘— 
2370 DATA AFGHANISTAN, KABOUL,18.1,652 225,149,62,AFRIQUE DU SUD,PRETORIA,27.3,1 
123 226,121,117 

2380 DATA ALBANIE,TIRANA,2-9,28 748,114,53,ALGERIE,ALGER,21.9,2 381 761,104,61 
2390 DATA ALLEMAGNE DE L'OUEST, BONN,61.1,248 706,103,50,ALLEMAGNE DE L'EST, BERLI 
M,16.6,108 333,104,48 : 

2400 DATA ANDORRE,ANDORRE LA VIEILLE, 0.04,467,101,54,ANGOLR,LUANDA,8.5,1 246 700 
.111,9 
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0,90,190,94,191,94,183,90,188,90,190,85 














per ANGUILLA,LA VALLER,0.007,90.6,50,74,ANTIGUA ET BARBUDA,ST JOHK'8,0.08, 

1.49, 

2420 DATA ASTILLES NEERLANDAISES ,MILLEMSTAD,0.3,993,49,81,ARABIE SAOUDITE, RYAD,1 

2,2 240 000,132,72 

ER) ARGENTINE, BURNOS AIRES,30.5,2 766 889,49,122,ARUBA,ORANJESTAD,0.06,193 

2440 DATA AUSTRALIE, CANBERRA.15.9,7 682 300,207,123, AUTRICHE, VIENNE,7.5,83 855,1 

04,51,BAHAMAS,NASBAU,0.25,13 939,42, 70 

2450 DATA BAHREIN,MANAMA,0.4,684,139,69 

2460 DATA BANGLADESH,DACCA,98.6,143 998,167,70,BARBADE,ERIDGETOWN, 0.27,491,52,78 

, BELGIQUE, BRUXELLES,9.9,30 #19,103,48 

2470 DATA BELIZE, BELHOPAN, 0.165,22 965,28,70,BENIN,COTOHOU, 4.04,112 622,102,84 

2480 DATA BERMUDES, HAMILTON, 0.06,53,50,63, BHOUTAN, THIMPHU,1.2,47 000,167,67,BIRM 

ANIE,RANGOON,36.8,676 552,176,76 ’ 

zum DATA BOLIVIE.SUCRE.6.5,1 098 581,49,108,BOTSWANA.GABORONE,1.1.562 000,119,1 

2500 DATA BRESIL,BRASILIA,135.5,8 511 965,65,105,BRUMEI,BANDAR SERI BRGAWAN,0.2, 

S 765,189,87,BULGARIE, BOFIA,8.9,110 911,118,54 

2510 DATA BURKINA FASO,OUAGADOUGOU,7.9,274 200,100,80,BURUNDI , BOJUMEURA, 4,7,27 8 

34,125,85,CAMBODGE, PHNOH PENH,7.2,181 035,178,78 

2520 DATA CAMEROUN, YAOURDE,9-7,475 442,107,87,CANADA,OTTAWA,25.2,9 215 430,48,48 

SERRE VER-FRRTA: 028. € 033,83,77,REPUBLIQUE CENTRAFRICAINE, BANGUI ,2.6,622 984,113 

2530 DATACHILI,SANTIAGO,14.9,756 626,50,120,CHINE,PEKIN,1050,9 571 300,183,54 

2540 DATA TAINAN,TAIPEH,19.4,36 000,191,68,CHYPRE,NICOSIE,0.7,9 251,123,63 

2530 DATA COLOMBIE, BOGOTA,26.6,1 138 914,44.87,COMORES,MORONI,0.4,2 236,133,100 

2520 DATA CORO ARAERAVIEER 1 ;3,382 000,108,93,CORÈE DU NORD, PYONGYANG, 20 .3,120 

2570 DNERODRER DU SUD, SEOUL, 41.2,99 114,188,55,CO0TE D'IVOXRE,ABIDJAN,10,322 462, 
,8 

2580 DATA CUBA,LA HAVANE,10,114 524,42,72, DANEMARK, COPENHAGUE, 5.1,43 080,113,43, 

DJIBOUTI, DJIBOUTI,0.5,23 200,131,82 

2590 DATA REPUBLIQUE DOMINICAINE.BANTO DOMINGO DE GUZIMAN,6.5,48 442,46,73,DOMINI 

QUE, ROBKAU,0.078,750,52,77 

LE para EGYPTE,LE CAIRE,50.5,997 738,122,64,EMIRATS ARABES UNIS,ABOU DHABI,1.6 

:77 900,141,71 

2610 DATA ÆQUATEUR,QUITO,9.6,283 561,39,88,RSPAGNE, MADRID, 39,504 782,97,57 

Mn TT NRIS MMENUTON 228,9 372 615,48,54,RTHIOPIK,ADDIS ABEBA, 42,1 22 

2630 DATA FALRLANDE,BTANLEY,0.007,12 173,68,138,ILES FIDJI ,BUVA,0.7,18 376,230,1 

15,FINLANDE ,HELSINKI,4.9,338 145,117,37 

2640 DATA FRANCE, PARIS,55.5,551 602,102,51,GABON,LIBREVILLE,1,267 667,107 ,90,GAM 

BIK,BANJUL,0.7,11 295,86,78,GHANA,ACCRA,13.4,238 537,97,85 

2650 DATA GIBRALTAR,GISRALTAR,0.03,5.86,95,58,GRECE,ATHENES,9.95,131 957,117,56, 

GRENADE,8T GEORGE, 0.1,344,51,81 

2660 DATA GUATEMALA, GUATEMALA ,8.4,108 889,31,78,GUINEE,CONARRI,6,243 857, 90,83,G 

UINBE-BISSAU,BISSAU,0.9,36 125,89,82,GUINKRE-EQUATORIALE,MALABO,0.3,28 052,106 ,8: 

2670 DATA GUYANA, GEORGETOWN,0.8,214 969,54,86,HAITI,PORT-AU-PRINCE,5.8,27 750,4 


,74 

2680 DATA HONDURAS THOUCIGALPA, 43,112 068,33, 78, HONORIE, BUDAPEST, 10.6,93 033,10 
,51 

2690 DATA INDE, NEW DELA, 762.2,3 287 263,160, 72, INDONESIE, DJARARTA,168.2,1 904 5 

69,183,98 

2700 DATA IRAK,BAGDAD,15.5,438 317,133,64, IRAN, TEHERAN, 43.4,1 648 000,140,62,1RL 

ANDE DUBLIN, 3.5, 70 282,96, 46 

2710 DATA ISLANDE, REYKJAVIK,0.2,102 846,90, 35, ISRAEL, JERUSALEM,4.2,21 501,126,63 

2720 DATA ITALIE, ROME, S7.1,301 277,110, 55, SAMAIQUE, KINGSTON, 2.3,10 991,43, 75, JAP 

ON, TOKYO, 121, 377 765,192, 57, JORDANIE, AMMAN, 35,97 740,129, 63 

2730 DATA KENYA .NAIROBI. 203,582 399,131, 91, KIRIBATI, TARAWA-CITY,0.06,717, 240,9 

7,ROMEIT,ROWEIT,1.6,17 818.136, 66 

2940 DATA LAOS, VIFNTIANE, 35,236 800,179,77, LESOTHO,MASERU,1.5,30 395,123,116, LI 

BAN, BEYROUTH,3.1,10 452,126, 61 

2750 DATA LIBERIA MONROVIA,2.2,111 369,90,85,LIBYE,TRIPOLT,3.9,1 775 500,110,64, 

LIBCHTENSTEIN, VADUZ,0.02,160. 105,52 

2760 DATA LUXEMBOURG, LUXEMBOURG. 0. 4,2 536, 103,81, MADAGAGCAR, ANTANANARIVO, 10, 587 
1,135,108 s 

2170 DATA MALAISIE, RUALA LUMPUR,15.7,330 634,178,86.NALANT, LILONGWE,7.3,118 484, 

125,106 

2180 DATA Les MALDIVES,MALE,0.2,298,155,88, MALI, BAMAKO,8.2,1 240 000,92, B6 MALTE 
#7 010, LA VALETTE,0.3,316 112.61 

2790 DATA MAROC, RABAT, 22,710 850,97,63,ILE MAURICE, PORT-LOUIS,1,2 040,140, 108 
2800 DATA MAURITANIE, NOUAKCHOTT, 1.9.1 030 700,93, 74, MAYOTTE, DEAOUDZI-LARATTOIR, O 
.07,376,138,98 

2610 DATA MEXIQUE, MMXICO,78.5,1 958 201,27, 74,MOMACO, MONACO, 0.03,1.81, 107,54 
2820 DATA MONOOLIE, OULAM-BATOR, 1.9.1 565 000,166, 51,HONTSÆRRAT, PLYMOUTH, O : 01 , 102 
16,49, 76 

2830 DATA MOSAMBIQUE,MAPUTO,13.5,799 380,125,110,HAMIBIE, MINDHOERK, 12,823 144,11 

1,107 

2840 DATA MAURU, YAREN,0.008,21.3,230,96, NEPAL, EATHANDOU,17.2,141 181,162, 70,NICA 

RAGDA, MAMAGOA,3.2,120 254, 34,77 

2850 DATA NIGER. MIAMEY,6.5,1 189 000,99, 78,NIGERIA, LAGOS, 102.9,923 768,105.86 

2860 DATA NORVEGE, OSLO. 4.2, 386 963,107, 38,NLLE ZÉLANDE, MELLINOTON, 3.3,268 112,22 
7,130 

2870 DATA SULTAMAT D'OMAN,MASCATE, 2,300 000,143, 72, OUGANDA, RAMPALA, 15.5,241 139, 


125,94 

2880 DATA PAKISTAN, ISLAMABAD,97.7,803 943,155,67,PANAMA, PANAMA,2.2,)/ 082,37,84 
2890 DATA PAPOUASIE-MLLE GUIRE! RT MORESBY,3.4.462 640 ,212,98, PARAGUAY , ASUNCIO 
N,3.7,406 752,57,113 

2900 DATA PAYS-BAB ,AMBTERDAN,14.6,41 785,107,43,PERQU,LIMA,19.7,1 281 216,40,102 
2910 DATA PRILIPPINES,MANILLE,54.7,300 000,193,76,POLOGNE,VARSOVIE,37.2,312 683, 
115,47 

2920 DATA PORTUGAL, LISBONNE,10.2,92 072,94,57,PORTO RICO,BAN JUAN,3.4,8 897,48,7 
0 


2930 DATA ROUMANIE, BUCAREST. 22.8,237 500,119,52,.ROYAUME-UNI , LONDRES,56.5,244 103 
199,45 

2940 DATA RWANDA.KIGALI,6.2,26 338,123,95,9T CHRISTOPHER(ST KITTE), BASSRTERRE 0. 
05,269.4,49,74 

2950 DATA SAINT-HANIN,SAN MARIHO,0.02,60.5,110,55,SAINT-VINCENT ÆY LES GRENADINR 
8,KINGSTOWN,0.1,389.4, 51,60 

2960 DATA ILES SALONON,HONIARA, 0.27,27 556,220,115,RL SALVADOR.SAN SALVADOR,5.9, 
21 393,32,79 

2970 DATA SAMOA OCCIDENTALES, APIA,0.2,2 831,237,95,SENEGAL, DAKAR,6-4,196 192,86, 
77 

2980 DATA ILES SAO TOME ET PRINCIPES, SAO TOME,0.120,964,103,93,SEYCHELLES, PORT-V 
ICTORIA,0.07,308,142,101 

2990 DATA SIERRA-LEONE, FREETOWN,3.8,71 740,90,84,#IMGAPOUR,BINGAPOUR,2.6,620.5,1 
79,88 

3000 DATA SOMALIE,MOGADISC10,5.7,638 657,135,88,BOUDAN,KHARTOUM.21.6,2 505 813,1 
23,79 

3010 DATA SRI LANKA,COLOHBO,16.1,65 610,162,85,SURDE, STOCKHOLM ,8.5,449 966,110,4 
0,SUI88E,BERNE,6.6,41 293,103,52 

3020 DATA SURINAM, PARAMARIBO.0.4,163 265,57,87.8WAZILAND,MBABANE,0.8,17 363,124. 


107 

3030 DATA SYRIE, DAMAS,10.6,185 180.127,61,TAMZANIE,DAR ES-SALAAM.21.8,945 087,13 
0,97 

3040 DATA TCHAD,M'DJAMENA, 5.1.1 284 000,107,74,TCHECOSLOVAQUIE, PRAGUR,15.5,127 8 
96,109,49 

3050 DATA THAILANDE, BANGKOK ,51.6,513 115,177,79,T0G0,L0ME,3.2,56 78%,101,85,ILES 
TONGA. NUKU'ALOFA,0.1,748, 3,97 

3060 DATA TRINIZE KT TOBAGO.PORT OP SPAIN,1.3,5 128,52,82, TUNISIE, TUNIS, 7.3,163 
610,107,61 

3070 DATA TURQUIE,ANKARA, 52,762 736,125,57,1LRS TUYALU.FUNAPUTI,0.008,26,2,91,.UR 
8S5,MOSCOU, 281,22 402 200,12Z4.44 

3080 DATA URUGUAY .MONTEVIDEO,2.9,176 215,60,122, VANUATU,PORT-VILA.0.135,12 189,2 
20,105 

3090 DATA VENEZUELA, CARACAS ,18.5,912 050,47,82,VIET-NAM,HANOI,61.5,331 688,181,7 


3100 DATA NORD YEMEN,SANAA,9.3,200 000,140,77,8UD YEMEN,ADEN,2.3,336 869,141,78 
3110 DATA YOUGOSLAVIE, BELGRADE. 23.2,255 804,112,52,ZAIRE,KINSHASA,31.2,2 344 8s5 
,110,95,ZAMBIE, LUSAKA,6.7.752 614,122,100 

3120 DATA ZIMBABWE,HARARE,6.2,390 759,124,102 









26 TEO N° 17 - MARS/AVRIL 1988 





MANIPULATION DE 


FICHIERS SUR TO8 ET TO9 
SRE En 


Après un rappel des notions relatives aux fichiers, 
cet article se propose de mettre en évidence les 
fonctions essentielles d'un système d'exploita- 
tion de disquette (ou DOS= Disk Opérating 
System), en comparant leur mise en oeuvre 
depuis deux logiciels intégrés au TO9 ou au 
TO8: EXPLOITATION DE FICHIERS et BASIC. 


Qu'est-ce qu'un fichier? 

Un ensemble d'enregistrements (données ou 
programmes) stockés sur une mémoire de 
masse. La taille d'un fichier s'exprime en nombre 
de caractères ou, un caractère étant codé sur 1 
octet de 8 bits, en K octets (1KO=1024 octets). 


Qu'est-ce qu'une mémolre de masse? 

Un support permettant d'enregistrer et de relire 
des informations: il s'agit le plus souvent d'un 
support magnétique (bande, disquette), de 
capacité supérieure à la mémoire centrale de 
l'ordinateur et conservant l'information de façon 
permanente. 

Le TO9 (ou TO8D) dispose de 6 unités de mé- 
moire de masse, désignées par le nom de «péri- 
phérique» suivi de «:» . Il s'agit de: 


—Supports Magnétiques 

0: et 1: les deux faces du lecteur de disquette 
interne 

2: et 3: les deux faces du lecteur de disquette 
externe 

Tous deux ayant une capaclté de 320 KO par face 
(double densité) 


CASS: Le lecteur enregistreur de cassettes 
(LEP) , capacité 6.5 KO par minute. 


—Support électronique 

4: est un cas particulier, disponible seulement 
avec l'extension mémoire de 64 KO sur TO9. 
Une partie de la mémoire vive est alors réservée 
au stockage des fichiers (disque virtuel ou RAM 
disk. Avantage : lecture et écriture beaucoup plus 
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rapides: inconvénient : mémorisation temporaire. 
La version de base du TO9 comporte unique- 
ment un lecteur de disquette interne simple 
face, l'unité O: . 


Quelles sont les différentes sortes de fichiers? 
On peut distinguer les fichiers selon deux critères: 


—Type d'information qu'ils contiennent (3ème co- 
lonne du catalogue): 

Programmes en langage BASIC, repère B sur le 
catalogue. Programmes en langage machine, 
repère M sur le catalogue. Données écrites ou 
lisibles par BASIC, repère D sur le catalogue... 
—Codage de cette information (4ème colonne du 
catalogue): 

Binaire, repère B sur le catalogue. ASCII, repère À 
sur le catalogue. 

Remarque: un fichier BASIC peut être sauve- 
gardé sous forme binaire ou ASCII. 


Descripteurs de fichier: 

On désigne un fichier par un nom de fichier 
composé de «nom.suffixe», Le nom comporte au 
plus 8 caractères alphanumériques. Le suffixe ou 
extension est facultatif et comporte au plus 3 
caractères alphanumériques. Sauf indication 
contraire, certains suffixes sont attribués par les 
logiciels du TO9 ou TO8 suivant le type de 
fichier : BAS pour un programme BASIC, DAT 
pour un fichier de données, BIN pour un fichier 
binaire (programme en langage machine ou zone 
mémoire). 

Un descripteur de fichier a la forme «nom de 
périphérique:nom de fichier». Avec nom de péri-- 
phérique= n° de lecteur, et nom de fichier= 
«nom.suffixe». 

N.B.: Le BASIC Microsoft des micro-ordinateurs 
Thomson utilise la notion de fichier généralisé 
pour tous les périphériques (voir instruction 
OPEN). 

Un descripteur prend alors la forme: «nom de 
périphérique:(option)nom de fichier». 

exemples: «LPRT:(nombre de colonnes)» pour 
l'imprimante paralléle. «CASS:nom de fichier» 
pour le LEP. «COMM:(vitesse nbre bits/car nbre 
car/ligne)» pour la voie série. Pour un fichier sur 
disque , en BASIC 128 ou BASIC 512, l'option 
est un commentaire à usage uniquement d'aide 
mémoire. 
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Qu'est-ce qu'un SED ? 

Un Système d'Exploitation de Disques (ou 
DOS) gère les fichiers enregistrés sur un 
disque. Mise à jour du répertoire ou catalogue, 
changements de nom, effacements, recopies, 
etc. Sur TO9 ou TO8 EXPLOITATION DE 
FICHIERS utilise des icônes ou pictogram- 
mes pour représenter les opérations et les 
objets, ainsi que des menus déroulants. Dans un 


EXPLOITATION DE FICHIERS 


menu, on sélectionne une opération ou un objet 
en les pointant à l'aide du crayon optique ou de 
la souris. Depuis BASIC, les ordres doivent être 
donnés sous forme de texte respectant une 
syntaxe rigoureuse. On indiquera en gras les 
éléments de la syntaxe, en italique les paramètres 
laissés à la disposition de l'utilisateur, entre 
crochets les éléments facultatifs. 


BASIC 


CHOIX DE L'UNITE ACTIVE 


pointer le pictogramme 
ou frapper le N°correspondant 


! 
4 
t 
, 
: 
L] 
0 
‘ 
4 
! 
4 
L) 
, 
s 
, 
Li 
Q 
! 


0: par défaut 
on peut changer l'unité 
par défaut grâce à l’ordre 


DEVICE" rom de périphérique:" 
ou bien spécifier l'unité 


concernée dans chaque 
instruction 


OPERATIONS SUR UNE DISQUETTE ENTIÈRE 


INITALISATION 
(FORMATAGE) 


pointer Initialiser 

ou frapper I 

puis indiquer nom de disquette 
confirmer par touche ENT 


: 
t 
Q 
! 
L] 
0 
U 
L 
1 
L 


DSKINIn°de lecteur 

ou 

DSKINIn°delecteurtl,{ facteur 
d'entrelacement,]l"nom de disquette"] 


la DENSITE peut être 
simple (128 octets par secteur) ou double (256 octets par secteur) 
par défaut,elle est double 


pointer Densité 
ou frapper D 
puis confirmer la nouvelle densité 


1 
L 
! 
4 
! 
! 
t 


DESSITYn'de lecteur, d 
d valant 1 (simple) 
ou 2 (double) 


CATALOGUE 


pointer Catalogue 
ou frapper C 
puis 


E pour écran, I pour imprimante 


28 


: 


PU de on me en = ne == en ©e ee == =. mn = ©s = 


DIRI n°de lecteur] 
sur écran 

DIRPI n°de lecteur] 
sur imprimante 


DIRdescripteur de fichier 
ou 
DIRPdescripteur de fichier 
permettent d'obtenir 
des catalogues partiels 


par exemple 
DIR’'.BAS" affichera les nons 
de tous les fichiers BASIC 
affichera les nons 
de tous les fichiers 
dont le nom commence par T 


D I R’’ tt 
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* DIRP”2:T.BIN" imprimera les noms 
ï de tous les fichiers binaires 
: dont le nom commence par T 

ï sur l'unité 2 


RECOPIE 
(disquette entière) 
pointer Backup : BACKUPn°de lecteurt TOn°de lecteur] 
ou frapper B : 
puis indiquer l'unité de destination! 


EXPLOITATION DE FICHIERS BABIC 


OPERATIONS SUR LES FICHIERS 


ces opérations ne sont possibles ï 

qu' APRES avoir pointé un fichier ï 
EFFACER 

pointer Effacer KILLdescripteur de fichier 

ou frapper E 

puis confirmer par touche ENT 


' 
COPIER 


E pour écran, 1 pour imprimante fichier BASIC déjà CHARGE en mémoire 


pointer Copier ï COPYdescripteur de fichieri 
où frapper K : [ TOdescripteur de fichier£] 
puis indiquer fichier destination i 
RENOMMER 
pointer Renommer ‘ HAMEdescripteur de fichier1 
où frapper kR ' ASdescripteur de fichier£ 
puis indiquer nouveau nom ï 
LISTER 
pointer Lister : 
où frapper L i pas d'équivalent, 
puis ‘ l'ordre LIST n’opérant que sur un 


Conclusion: 


EXPLOITATION DE FICHIERS et BASIC offrent sensiblement les mêmes 
fonctionnalités. On peut toutefois noter: 


* avantage à BASIC pour obtenir des catalogues partiels grâce à l'ordre 
DIRdescripteur de fichier; BASIC permet par ailleurs de gérer des fichiers 
de données 

| - à accès séquentiel (voir les instructions CLOSE INPUT# LINEINPUT# 
OPEN PRINT# PRINT#USING UNLOAD VWRITE# et la fonction EOF ) 
- où à accès direct (voir les instructions CLOSE DSKOS FIELD FILES 
GET# LSET OPEN PUT# RSET WRITE# et les fonctions CVD CVI CVS DSKIS LOC LOF 
MKD$S MKI$ MKSS POS ); 





*X avantage à EXPLOITATION DE FICHIERS pour examiner le contenu d'un 
fichier grâce à sa fonction Lister; et puis il est bien agréable de procéder 
à toutes les opérations en pointant simplement un pictogramme sans avoir à 
écrire un texte respectant une syntaxe pointilleuse! 


L. SOURROUILLE 
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NPRESSION D'ETIQUETTES 


Voici un petit utilitaire sans prétention mais... bien utile. Vous 
pourrez l'adapter à tous les formats d'étiquettes, à toutes les 
dispositions: une, deux, trois poses de front ou plus, à toutes 
les imprimantes. 11 pourra rendre service à une bibliothèque 
d'école comme au micro-maniaque désireux d'étiqueter ses 
disquettes. 





Afin de faciliter des adaptations uitérieures ou des 
transpositions éventuelles, le programme a été structuré 
seton la dispositton chère à PASCAL: en-tête, déclarations, 
sous-programmes (qui s'appelleraient en Pascal: procédu- 
res ou fonctions). corps du programme. 

il a été écrit en BASIC standard, sans chercher à faire de «fio- 
ritures». La seule instruction un peu particulière est COLOR..1 
(qui échange les couleurs du fond et de la forme sur TO9 ou 
TO8). employée pour mettre en évidence à l'écran le texte 
de l'étiquette. Sur une autre machine, on pourrait la rempla- 
cer par l'inversion vidéo ou la surbrillance. 


Les valeurs par défaut adoptées pour les paramètres cor- 
respondent aux paravents d'étiquettes dont disposait le 
programmeur: vous pourrez mettre vos propres valeurs! 


Veus pouvez initialiser votre imprimante (qualité courrier par 
exemple) en insérant la séquence correspondante en ligne 
2210. Les commentaires insérés dans le texte du programme 
dispensent d'explications plus abondantes. 


1000 ‘’Progranme IMPRESSION D’'ETIQUETTES 
1005 *XXXKXKXEXAKKAEKMKIENMER II INN TE 
1010 ‘Déclaration de variables 

1015 " 

1020 CLEAR 6000 

1030 DEFINT N,M 

1040 DIM LS(72) 

1095 

1100 GOTQ 10000 ‘aller au prog. princ. 
1995 ‘ KKKKKKERÉEIRMMER INR ON NOK 
1999 ? 

2000 *S/P Init IDDN 9S ts 99stss5s959e 
2010 * InitPap 

2020 IL= 11 ‘nbre lignes )formt 
2030 HC= 39 ‘nbre colonnes)étiquettes 
2040 . 

2050 MG= O ‘marge gauche 

2060 REC=2 ’nbre col.)entre étiq. 
2070 REL=1 ‘’nbre lig.} 

2080 HF= 2 ‘nbre étiq. de front 

2200 *InitImpr 1202990509» 9PS9%9999,.0 
2210 ? 

2990 RETURE PIDDISPS0DPIS9I9PLSVISS090 
2999 ? 

3000 ‘’S/P AffichParam ‘'''"'"101r9095 
3010 PRIST’EL="; NL," HNC="; NC 

3020 PRINT"MG=" ; MG," NEL=" ; MEL,  NEC=" ; HEC 
3030 PRINT'HF="; NF 

3990 RETURK 209090909999 02099299 
3999 ? 


4000 *&/P AffichBtiq *""°"eeevrmssosene 
4019 COLOR ,,1 

4020 FOR L=1 TO SL 

4090 PRIST LS CL) 

4040 HEITL 

4090  COLO8 ,,1 

4000 PRINT 

4000 HETURE *rroorsesonereressesess 
4909 " 
6000 ‘&a/F7 DefEtiq LELLERLLLEELELELELLEEE)] 
5090 GOTO 5700 





Gove 

9100 * &/F Sauvegardes 

3110 PRINT 

3120 ISFUT"Dascripteur de fichier”; FICHS 
5130 OPEF"' 0". #1. FICHS 


3140 PRISTP1, SL: PRIBTEZ, BC: PRIST#1, MG: PR1NTP1, NEC: PRINTP1, SHL: PRIST® 
1,77 

5150 POR L=1 TO SL 

5169 PRISTE1, LS CL) 

3170 BEIT L 

3109 CLOBKP1 

3190 RETURS 


5196 ” 

93200 ? 8/P Chargozent 

5210 PRIT 

5220 {XPUT”-Descripteur de fichier”; PICRS 

3230 CPE" 1",#1,FICHS 

5240 IEPUTE1, BL: INPUTEL, SC: INPUTE1, MG: INPUT 1, HEC: IMPOTS 1, SEL: INPUT 

#1,5P 

5250 FOR Le1 TO EL 

5260 LIBSISPUTF1, LS(L> 

5270 EXT L 

3290 CLOSSS1 

35290 RETOURS 

5295 

3300 ® E/F Saisie 

5310 PRINT 

5320 FOR L=1 TO EL 

5330 PRIST”iigne" ; L: PRINT CHRS (34) ; LS CL); CHERS (34) ; : POUR EB=1 TO LE 

BCLS(L)2+2: FEIST CHRS(6);:BSEXT MS 

3340 IBPUT"", LSCL) 

5350 LS<CL)=LEPTS(LS (CL), NC) *‘tronque à HC caract 

3360 LL=HC-LEBCLE(LD): FOR HS=1 TO LL: LS(L)=LS(L)+" “: DEIT ES 
"remplit avec des espaces 

5300 BIT L 

3309 ? 

S400 PRIST: PRIBT 

5410 GOBSUB 4000” AffichEt1q 

3500 PRIBT: PRINT 

5510 INPUT"La texte est-il correct(1.oui/0.non)";C% 

3530 IF C3-0 THBE GOTO 5300 

3595 ° 

3600 PRIBT:PEIBT 

3610 IMPUT Voulez-vous sauvegarder ie terte(1.OU1/0. NON)" ;CX 

5620 IP C1=1 THES GOSUB 9100 


3090 RETURE 
s00s * 


5700 CLS 

6710 PRINT: FRiNT-Définition d'étiquettes”: PRIET 
5720 PRINT“0. Pin définition" 

8730 PRIST-1. Baieie” 

5740 PHIST"2. Chargement fichier“ 

9750 PRIBT 

9760 INPUT“Votre chatx"; CE 

5770 ON C3 OUEUB 5300, 8200 

5796 ‘ 

S000 EUTURE vrrrrorenasa ne usesenauens 

S000 ‘ 
000 “SP Imprimer *ettreemmennenrese 
6010 GOTO 8800 





6100 ? S/P Inmpriang 

8106 1P He0 THER GOTD 6190 

6110 FOX L=1 TO EL 

6120 PEINTE2, SPC (MG); 

6130 FOR J=1 TO H-1 

8140 PRISTE2, LS CL) ; SPCCHRC) ; 
8180 nant j 

6100 PRIST#2, LE (L) 

8170 mit L 

6160 FOR K=1 TO NRL: PRINT#2: NEIT K 
6100 RETURS 

6195 * 


6500 * Imprimer 

e51i0o OP) D",#2,"LPRT: (BO)" 
0520 KP 

6530 FOR I=1 TO SONF 

6540 G081B 6100 

0560 NEIT 1 

6500 = UD 7 

0670 GOSUB 8100 

0580 CLOSBP?2 


0506 * 

6000 HNTURE rrerervsoossecmemenessnne 
cp 

7000 °&/P ModifPoram “'eremnernreneess 
7010 BACKSPACES"CHRS (8) +CHRS (8) +CHRS (8) 
7020 CLS 


7030 PRIBT: PRINT" Hodification des paramètres”: PEINT 

7040 PRIST"des valeurs par défaut mont proposées; ”:PRINT" validez chaque 
paramètre après avoir”:PRIST"évantueliement modifié ms valeur.":PRIST 
7100 PRIST" Formet des étiquettes:"” 

7110 PEIST"-bauteur(nbre lignes ) EL="; NL; BACKSPACRS;: INPUT", NL 

7120 PRIST"-largeur(nbre colonnes) NC="; NC; BACEBPACES;: INPUT", RC 

7200 PRIST:PRINT" Disposition des &tiquetten:" 

7210 PRIET‘-uerge gauche(zbre colonves) MGL="; M6; BACKEPACES;: 1SPUT"®, MO 


7220 FRIST"-espacemsnt borisontal entre étiquettes(nbre colonnes) HBC="; 
IRC; BACKSPACES;: INPUT", NEC 
7230 PRIST"-aspacament vertical entre étiquettes(nbre lignes) WEL="; MEL; 
BACEBPACES; : INPUT”, SEL 
7240 PRIST”-nosbre &tiquettes de front EP"; NF: BACKSPACES:: INPUT“®*, NF 

, Dorverse , 





9000 ‘&/P Hepy CORRECTE TE TEEN TT) 
2010 CLS 

2020 PRINT: PRINT EDITION D°STIQUETTES" : PRINT 
0030 ODEUB 3000 ‘affichParan 

9040 OUBUB 4000 "AffichEttq 

9060 PRIET-0. Terminer" 

DO60 PRIET-1. Modifier les paramtres” 

5070 PRIST"2. Définir us texte d'étiquatte” 
0080 PRIST"S. Imprimer” 

2096 

9100 ISPUT” Votre choix” ;CHDIE 

9110 ON CBOIZ GOSUB 7000,5000 

9109 * 

0000 RETURE rosrenessossosesnnenese 

0900 * 


10000 ‘Corps du programme IMPRESSION D'NTIQUETTES SERSRSSENSENENERCE SEE 
axstatx 

10008 

10010 GOSUB 2000  ‘’Isit 

10018 * 

10100 ’Rspèter 

10110  CHOIZ-9 

10120 GOBUB 0000 ‘Hena 

10130 IP CRO1Z-S THEN PRIST: ISPUT-Nonbre d'étiquettes & imprimer“; Ni IP 
H>0 THEN GOSUB 8000 ‘Imprimer 

10140 IF CB012>0 THES GUTO 10100 

10150 ‘Jnequ'à CHDIY=0 

10155 

10990 END ‘ SRSRSERSSESSESSSESSESSESSSEER 
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Caractères 


Un petit programme écrit en basic 512 sur TO8 
qui vous permettra de générer des caractères 
graphiques. Il se compose de trois programmmes: 
— 1) EMPLOP : à lancer en premier pour avoir 
l'utilisation des touches de fonctions à tout mo- 
ment dans le programme principal. 
— 2) «GENECAR>» : programme principal. Au milieu 
d'une grille se situe une tortue (flèche) qui se 
déplace dans les huit directions à l'aide du joys- 
tick (port 0). Pour noircir ou effacer une case. il 
suffit d'appuyer sur le bouton ACTION de la 
manette. Dans le rectangle rouge, à droite de 
l'écran, apparaît le résultat de cette action: les 
données étant entrées directement dans leurs 
adresses sans passer par la fonction [DEFGR$(]. 
A tout moment, le menu pourra être affiché et 
effacé par la touche ESPACE. > 
Les composés de ce menu sont : 

F1 : pour l'affiche en double hauteur et (ou) 
double largeur 

F2 : pour la sauvegarde des donnés sur 
disquette 

F3 : pour l'affichage des valeurs sur écran 

F4 : pour l'affichage des valeurs sur impri- 
mante 

F5 : pour une autre génération 

RAZ : pour la fin du programme 

ESPACE : pour revenir au dessin. 
— 8) «CHARDES» : programme du chargement qui 
peut-être intégré à un autre programme. 
Patrick BORDAS 


10 ‘RRARAANAARANRAANSUNRARANAARRARRAANER 

20 ‘« GENERATEUR DE CARACTERES Li 

30 ‘« * 

40 ** par BORDAS Patrick la 27/02/88 * 

50 OURARRRRRATERENESARNSRLELÉRAQRLERSE 

60 CLRAR,,40:DEFGR$(39)20,126,66,66,66,66,126,0:DIM MO8(1500),DE8(10000) 
:LOADPÉM ODE* :H0%(1500) 

70 AD=4HIFFF-40*8:GOSUB600 

80 FORI=AD TO AD+2028:POREI ,O:NEXT 

90 CLS:INPUT'NOMBRE DE COLONNES laë: ";NC 

100 INPUT NOHBRE DE LIGNES 1a3: “:NL 

110 IF NC<1 OR NC>6 OR NL<1 OR NL>3 THEN BEEP:GO0TO90 

120 CLS:PRINTCHRS(20):CX2NC28-1:CY=NLAB-1:XnCA"4+3: YaCYRÉ63 

130 BOxF(0,0)-(CX,CT)GRS(39) 

140 BOX(268,76)-(275#NC28,83+NLe8) ,1 

130 Af="LODS LOUL RGGUS E96D8 L96D5" 
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160 ‘= 

170 ‘« CHOIX DES OPTIONS * 
SOS rames * 
190 TURTLEL,X,Y,A$:SHOW1 

200 KS=INKEYS:IF K$="* THEN 290 

210 1F Kÿ=CHR$(32) THEN 630 

220 IF K#=FKEYS(5) THEN SHOWO :GOTOBO 
230 IF K$=PKEYS(2)THEN 700 

240 IF K$=FKEYS(1) THEN 660 

250 IF K$=FKEYS$(3) THEN AF$="SCRN: ":G0T01120 
260 IF KS=PKEYS(4) THEN AP$="LPRT:": GOTO1120 
270 IF K$=CHRS(12) THEN CLS: END 







280 ‘* * 
290 ‘= DEPLACEMENT DE LA TORTUE . 
3OD 8 -——“— . 


310 A=STICK{0):BzSTRIG(O):1F B<>0 THEN 460 

320 1F A=0 THEN 190 

330 ON À GOSUB 370,380, 390,400,410,420,430, 460 
340 IF X<O THEN X=X+4 ELSE IF X>NC*66 THEN XX-4 
35D IF Y<O THEN Y=Y+4 ELSE IF Y>NL*66 THEN Y2Y-4 
360 GOTO190 

370 Y=Y-46: RETURN 

380 GOSUB370 :GOSUB390 : RETURN 

390 X=X+4: RETURN 

400 GOSUB390 : GOSUB410 : RETURN 

410 Y=Y+6: RETURN 

420 .G0SUB410 : GOSUB430 : RETURN 

430 X=X-4: RETURN 

440 MORUBASS; GOSUB370 : RETURN 


450 
460 “. CALCUL ET AFFICHAGE DE LA case ? " 
470 ‘A --mmmmmmemmmmmmnmmmemmm——— 
480 SHOWO:8X=X08 :BY=Y08 

490 DrADe(((SYÉB)ANC) SEXE ) )a8e (7 {sx MOD 8)}:VA=PEEK(D):V=8X MOD 8 
5D0 C=BCREEN(SX,SY):1F C=127 THEN 5 

510 POKED, VA+V(V) 

520 C$=<CHR$ (127) :60T0550 

530 POKED, VA-V(V) 

540 C$=GR$I(39) 

550 LOCATE 8X,SY:PRINTCS:N=0 

560 FORI=0 TO NL-1 

570 FORJ=0 YO NC-1 

580 LOCATE 34+J,10+1:PRINTGRSIN) 

590 N=N+1:NEXT :NEXT:G0T0190 

600 DATA 128,64,32,16,8,4,2,1 

610 FORI=0TO7: READV( 1) :MEXT : RETURN 

620 ‘* 

630 ‘« AFFICHAGE DU MENU * 
660 "mme * 
650 SHOWO:GKT(0,0)-(39,24),DE8 (10000 ) 
660 PUT(8,6),M08 (1500) 

670 IF INPUTS(1)CCHRS(32) THEN 670 
680 PUT(0,0), DES (10000) : GOTO190 

690 '* 


* 

700 + BAUVEGARDE Q 

DO 0m mms . 

720 SHOWO:0E7(0,0)-(39,24),DE8 (10000) 

730 CLS:IMPUT"NOM DU FICHIER : “NS 

760 IF LEN(NF$)>8 THEN 730 

750 OPEN"D",#1,NF$,5 

760 FIELD#1,3 AS DS 

770 NB=LOF(1):N=1 

780 FORI=0 TO (NC*NL)-1 

790 PORJ=7 TO © STEP-1 

600 VS$=HEX$(FEEK(AD+(1*8)+3)) 

810 LSRTDÿ=V$: PUTS1,NB+N:NaNel 

820 HEXT:HEXT:CLOSRS] 

830 PRINTCHR#(20):PUT(0,0),DE (10000) 
1 


840 GOT0190 

830 ‘* * 
860 ‘* ATTRIEUTION 2 
870 1m  —…— * 


880 SHOWO:GET(0,0)-(39,26),DE8(10000) 
890 CLS:LOCATRO, 1: PRINT" "ATTRIBUTION 


900 PRINT" -------" “:PRINT 
910 PRINT"TAPEZ : (1) POUR DOUBLE HAUTEUR 
920 PRINT” 2) POUR DOUBLE LARGEUR 
930 PRINT" (3) POUR LES DEUX 


940 PRINT" [B8F) POUR REVENIR AU DESSIN 
950 K#=INPUTS(1):1F (K$<"1" OR K#>”"3") AND K$C>CHRS(32) THEN BEEP:60T0950 
960 IF Kÿ=CHR$(32) THEN PUT(0,0),DE%{ 10000 ) : ATTRBO, 0 : G0T0190 

970 ON VAL(K$) GOSUB 990,1000,1010 

980 GOTO1020 

990 AX=0:AY=1:RETURN 

1000 AX=1:AY=0: RETURN 

1010 AX=1:AY=1: RETURN 

1020 COASOLR9, 26: CLS 

1030 PX=9+INT((15-NC*(AX+1))/2) 

1040 PY=INT((40-NL2(AY51))/2) 

1050 ATTRBAX ,AY:M=0:AX=AX+1 : AY<AY61 

1060 FORI=0TO NL-1 

1070 FORJ=0TO NC-1 

1080 LOCATEPX+J*AX, PY+I%AY:PRINTGRS(N): 

1090 N=N+1:NEXT: MEIT 

1100 CONSOLEO, 24 :GOT0950 

1110 ‘* * 

1120 ‘* AFFICHAGE ECRAN OU IMPRIMANTE : 

1130 tt --mmenmmmmmmmnmm 

1140 SHOWO: certe 0)-(39,24), Dr8(10000) 

1150 CLS:Uÿ="# 

1160 OPEN"O", #1, 

1170 PRINTS1." VALEURS EXPRIMEES EN HEXADECIMAL":PRINTE1 
1180 FORI=0 TO (NC#NL)-1:PRINTS1,USINGUS;1;: PRINTE1," m=°'; 
1190 FORJ=7 TO 1 STEP-1 

1200 RL M EUREE IF LEN(V$)<2 THEN V$="0"+ vs 
1210 PRINTS1,VS$;" 

1220 VAS RER AD TES) IF LEN(V$)<2 THEN V$="0"+V$ 
1230 PRINTSL , VS: MEXT:C 
1240 PRINT: PRINT" 
1250 KS$=INPUT$(1):1P KSCCHRS(32) THEN BREP : GOTO1250 
1260 PUT(0.0),DE8{10000) 

1270 GOTO190 

1280 LE Men e do De der is , 

1290 ‘* PROGRAMME REALISE P. 

1300 '* BORDAS PATRICK LE 28/02/1988 : 

1310 ** SUR THOMSON T0/8 

1320 Re nn RDS Es RER 


PPME POUR REVENIR AU DESSIN" 










SUPER 
CONCOURS 


TO7 = 7 


NO0654 


L’'Evénement NO665 


R1643 

N2532| BOBO 6 K7 |140,00F | p0045 

N0710 
NO743 
No721 
140,00F | N079B 
140,00F | N0821 
190,00 F | N0832 
NO854 
NO843 
B0930 


145,00F | B072? 


Les Nouveautés 


LES ATHLÈTES 
LES ATHLÈTES 
LES ATHLÈTES 


RIRES 


5 67+8B 9 94] K7 





NO254 | AFFAIRE SYDNEY 





NO265 | AFFAIRE SYDNEY 8 9 9+| DK | 199,00F | NOB76 
NO29B | AFFAIRE VERA CRUZ 8 9 9+| DK |[199,00F | N0865 
NO0043 | BIVOUAC 6 K7 |145,00F 
NO054 | BIVOUAC 8 9 94| DK |199,00F 
N2454| BOB MORANE CHEVALERIE 6 K7 |199,00F 
N2465 | BOB MORANE CHEVALERIE 8 9 94! DK | 199,00F 
N2332| BOB MORANE JUNGLE 6 K7 |199,00F 
N2343 | BOB MORANE JUNGLE 8 9 94] DK |199,00F 
N2398| BOB MORANE SCIENCE FICTION | _ 6 K7 |199,00F 
N2409 | BOB MORANE SCIENCE FICTION 8 9+|] DK |199,00F 
NO443 | DIEUX DE LA GLISSE 6 K7 |145,00F 
NO454 | DIEUX DE LA GLISSE 8 9+[ K7 |[145,00F 
NO465 | DIEUX DE LA GLISSE 8 9+| DK |[199,00F 
NO0354 | DIEUX DE LA MER 6 K7 |145,00F 
NO365 | DIEUX DE LA MER 8 9 94 DK |199,00F 
NO487 | DIEUX DU STADE 1 8 9 9+| DK |199,00F 
NO543 | DIEUX DU STADE II 8 9 9+| DK | 199,00F 
B0032 | HMS COBRA B 9 9+| DK |249,00F 
B0021 | HMS COBRA 5 6 K7 |249,00F 
N2110| IZNOGOUD 6 K7 |159,00F 
N2121 | IZNOGOUD 8 9 9+] DK |207,00F 
NO0154| KARATÉ 8 9 94] DK | 199,00F | N0010 
N0332 | LA MINE AUX DIAMANTS 5 67+8 9 K7 |149,00F | N0276 
NO0343 | LA MINE AUX DIAMANTS 8 9 9+| DK |199,00F | N0287 
NO565 | LES PASSAGERS DU VENT | 74 8 K7 |249,00F | N0032 
N0554| LES PASSAGERS DU VENT | 6 K7 |249,00F | N0909 


NO0576 | LES PASSAGERS DU VENT | 
NO598 | LES PASSAGERS DU VENT II 


œ 


9 9+| DK |249,00F | N0476 
9 941 DK |249,00F | N0498 


œ 


NO5B7 | LES PASSAGERS DU VENT Il 6 K7 |249,00F | N0510 
B0010 | LES RIPOUX 8 9 9+| DK | 159,00F | N0532 
B0001 | LES RIPOUX 6 K7 |116,00F | N0521 
N0609 | MARCHE À L'OMBRE 6 K7 |145,00F | N0076 
N0610 | MARCHE À L'OMBRE 8 9 94] DK |198,00F | NO065 
B0076 | MEURTRES EN SÉRIE 8 9 9+] DK }249,00F | N0098 
B0065 | MEURTRES EN SÉRIE 5 6 K7 |249,00F | N0087 
B0100 | MEURTRES SUR L'ATLANTIQUE 9 DK |249,00F | NO110 
B0OOB7 | MEURTRES SUR L'ATLANTIQUE 5 K7 |249,00F | N0109 
B0098 | MEURTRES SUR L'ATLANTIQUE 7+ K7 |249,00F | N0121 


TO7/70 = 7+ 


Réfe- Réfé- 
rence rence 













TO8 = 8 


Titres 


OK COWBOY 

OK COWBOY 
OXPHAR 

OXPHAR 
PROHIBITION 
PROHIBITION 

SAPHIR 

SAPHIR 

SORTILÈGES 

SUPER ANDROÏDES 
THÈME ASTRAL 

TNT 

TNT 

TURLOGH LE RODEUR 
TURLOGH LE RODEUR 
VAMPIRE 

VAMPIRE 


AIS VU 


T09 = 9 


TO9+ = 9+ 
RE : 
À 
6 K7 149,00F | 
8 994 DK |199,00F 
8 994 DK |199,00F 
5 6 K7 |149,00F 
8  9# DK |199,00F 
6 K7 |149,00F 
B 994] DK |199,00F 
5 67+8 9 K7 |149,00F 
9 DK |199,00F 
8 994 DK |199,00F 
9 DK |259,00F 
B 994 DK |199,00F 
5 67+8 994 K7 |149,00F 
8 9 94 DK |246,00F 
6 K7 |246,00F 
B 99+#| DK |199,00F 


2,6. 7109 K7 |149,00F 





Les Educatifs 


IL ÉTAIT UNE FOIS 
IL ÉTAIT UNE FOIS 
SAC À DOS 


ASSDESASS 
COMMERCE 9 
COMPTA 9 

PAIE 9 
TELKIT 


1789 
1789 
AFFAIRE SYDNEY 
AFFAIRE VERA CRUZ 
ANDROÏDES 
ASSDESASS 

DIEUX DU STADE I 
DIEUX DU STADE | 
DIEUX DU STADE | 
DIEUX DU STADE Il 
DIEUX DU STADE Il 
DOSSIER BOERHAAVE 
DOSSIER BOERHAAVE 
DOSSIER BOERHAAVE 
DOSSIER BOERHAAVE 
ENTROPIE 
ENTROPIE 
ENTROPIE 

















190,00F 
150,00F 
290,00F 











300,00F - 







DK |350,00F 
DK |350,00F 
DK |350,00F 






259,00F 
















73,00F 



















7+ 8 99+4| K7 | 73,00F 

7+ QDD | 99,00F : 

5 67+B 99+| K7 | 73,00F 
5 7H&K7+ | K7 | 73,00F | 
5 7+léK7+ | K7 | 73,00F 
5 6 7+l6K7+ 8| K7 | 73,00F 
5 7+léK7+ | QDD | 99,00F 
5 7+léK7+ |51/4 | 99,00F 
7+8 94| K7 | 73,00F 

K7 | 73,00F 

K7 | 73,00F | 

K7 | 73,00F 

QDD | 99,00F 

DK | 99,00F | 

K7 | 73,00F 

K7 | 73,00F 

DK | 73,00F 










POUR MIEUX 
CONNAÎTRE 
NOS LOGICIELS 

TAPEZ 


3615 COMIKS 


SUR THOMSON 


ATTENTION, stocks limités! 





MEURTRES SUR L'ATLANTIQUE 99,00F 


\ Réfé- 

| rence 

| R4043 | L'ÉVADÉ DE TAPIOCATRAZ 
N0132 | FOOTBALL 
 N0309 | HÉRITAGE II 

N0310 | HÉRITAGE I 

N0143 | KARATÉ 

N0165 | KARATÉ 

NO176 | KARATÉ 

N01B7 | KARATÉ 

NO19B | KIDKIT 

NO209 | KIDKIT 

NO232 | LA GESTE D'ARTILLAC 
NO221 | LA GESTE D'ARTILLAC 
NO243 | LA GESTE D'ARTILLAC 
NO387 | LAS VEGAS 

N0376 | LAS VEGAS 

NO409 | LAS VEGAS 

NO410 | LAS VEGAS 

N039B | LAS VEGAS 

NO421 | LAS VEGAS 

NO432 | LAS VEGAS 

R1020 | LE MILLIONNAIRE 


NO6?21 
NO632 
NO643 
| B0043 
_B0112 


MANDRAGORE 
MANDRAGORE 
MANDRAGORE 
MEURTRE À GRANDE VITESSE 
MEURTRES SUR L'ATLANTIQUE 


Conditions de vente 


CONDITIONS GÉNÉRALES DE VENTE: 
Disponibilité des articles : Tous les articles présentés sur le 
scene en covrs sont disponibles dans lo limite des 
stocks, 


Livraisons : 

@ Nos délais sont de l'ordre de 5 jours à réception de la 
commande, sauf problème d'acheminement. 

@ Nos prix sont calculés départ entrepôt, Le transport est 
effectué en votre nom par paquet posle non recom- 
mandé. 

POUR ACHETER PAR CORRESPONDANCE : 
Commandes : 

@ Choisissez dons votre catalogue. 

indiquez avec précision, sur ce bon de commande, les 
titres, références, quantité et prix. 

@ Elfectuez votre paiement par chèque bancaire, postal 
au mandat-lettre libellé à l'ordre de MÉDIAVENTURE 
(espèces et timbres-poste rigoureusement interdits), ou 
indiquez voire numéro de Carte Bleue, sa dote d'expira- 
tion et signez. 

@ Joignez votre titre de poiement à votre ban de com- 
mands {souf Carie Bleue} et adressez le tout dans une 
enveloppe. 

RENSEIGNEMENTS : 

@Soit par correspondance en écrivant à: MÉDIAVEN- 
TURE 79, rue Hippolyte Kahn 69100 VILLEURBANNE 

@ Soi par téléphone de 9 h à 17 h 30 du lundi ou vendredi 
en oppelant Fa 7B 03 1B 46 - Service VPC. 

© 3615 COMIKS. 


Cette offre est réservée oux particuliers et à la Fronce 
Métropolitaine, valable jusqu'au 31/06/BB dens fo fimite 
des stocks disponibles. 

Prix et frais d'envoi au 31/03/B7 susceptibles de variations 


en fonction des circonstances économiques. 
SARL Médioventure - Capitol de 50 000 F 
R.C. Lyon B 334183 027 





Bon de commande à retourner à: 


MÉDIAVENTURE 
79 rue H. Kahn 
69100 VILLEURBANNE 


MINICALC 


MISSION DELTA 

OMÉGA PLANÈTE INVISIBLE 
OMÉGA PLANÈTE INVISIBLE 
OMÉGA PLANÈTE INVISIBLE 
POLITIK POKER 


QRISP 
REVERSE 
SORTILÈGES 
SORTILÈGES 
SORTILÈGES 
SORTILÈGES 


OFFRE 
SPÉCIALE! 


Attention, offre valable [usqu'ou 
31/05/ 88 uniquernent. 


73,00F 
73,00F 
129,00F 
99,00F 
99,00F 
51,00F 
73,00F 
73,00F 
99,00F 
99,00F 
99,00F 
99,00F 


BOBO 
+ LES ATHLÈTES 
+ MARCHE À L'OMBRE 
soit 9 jeux POUF 289" 


version cassette 
ou 389 version disquette. 


rence 
S2000 | OFFRE SPÉCIALE 
S2001 | OFFRE SPÉCIALE TOB, be er 389,00F 








+ FRAIS DE PORT 
| TOTAL À PAYER 


| MIEUX VOUS CONNAÎTRE 


| @ Avez-vous un minilel £ 


lou [non 
@ Avez-vous un magnétoscope À Coui [l non 
| @ Avez-vous un lecteur de disquette ? Cou [non 
Votre äge 
Aïimeriez-vous participer à l'une de nos enquêtes 
consommateurs ? Cou [lnon 


| Si oui, votre numéro de téléphone: 4 {1 


289,00F 

















NOM : : } Le 
PRÉNOM: : ÂGE Re 
ADRESSE : 
VILLE : 
CODE 


POSTALL 11. | |] 


VOTRE MODE DE PAÏEMENT 


À LA COMMANDE 
1. © MANDAT-ETTRE 


2 
3. [1 CHÈQUE BANCAIRE 4. 
à l'ordre de MÉDIAVENTURE. 





CHÈQUE POSTAL 
CARTE BLEUE 


ER 


N'oubliez pas d'inscrire son numéro ef de signer, 


ss ne | 


SATA.) 


N'ENVOYEZ JAMAIS DE MANDAT-CARTE 14 18, DE TIMBRES, NI D'ESPÈCES. 


Signoture des parents : 
ATTENTION: une signature falsifiée ou 


imitée peut entroîner des poursuites pènates (Art. 150 et suivants du Codec Pénal). 


Pour les mineurs, 
signalure des parents, obligatoire. 





NOM DE VOTRE MACHINE ET MODÈLE | 


THOMSON:  MO5 Ol MO6 [1 TO7/70 O 
TOB El 1ÉS PIE) T09+ 


Autre, précisez le modèle 


REPAIRE 





PAC-MAN 





Et oul, un grand classique | Mals après tout c'est toujours 
auss| amusant de manger les petites pastilles. Ce jeu se 
déroule sur 20 tableaux et il faut blen sûr dévorer les pastilles 
sans se faire manger par les fantômes. Votre petit glouton se 
dirige avec une manette de jeu en port «0». Bon appétit. 


Patrick BORDAS 


COPLOLCCE ECC TE 





PAC-MAN 8 
Li (c) BORDAS PATRICK 4/86 Li 


f==3 RECONBTITUTIOH CARACTERES 


80 CLEAR,,30:DIMA(15,15) 

90 AD=&H9FFF-30*8 

à00 DATA 967156B24DS6AA93,7F434343437F2F00,404040407F7F7P00,0000181818180000,001 
83C$SA785A5AO0,00183CSA7E241800 


110 


DATA 007D381010100808,00P7864440408080 ,00F7B69480808080,00FE868280848CFC, 080 


5050502070r00,8000000004068700,808080809486F700, 8C8480808286PE00 


120 


DATA 001E264240402018,001E264260808080,001C2A4141808080,003P342404848487,00C 


72614101020C0,00FE868280848CYC 


130 


DATA 0402020262627C00,8080804042261800,80808041412A1C00,84848404040E1F00.804 


0402024263700,8C8480808286F00 


140 
150 


FORI 207025 : READAS : FORJ=0TO7 
PORKRAD+(1%8)e(7-J),VAL("8H"+MID#(AS,392+1,2)):NEXT:NEXT 


160 ’ 


170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 


, 
, 
TAB=1 

CLS : SCREEN, 7,0 

BOXP(0,0)-(39,24)GR$(0),10,2 

BOX(5,3)-(34,19)GR8(0),10,2 

BOX(6,4)-(33,18)GR#(1),1,9 

G08uB1070 

ATTRBO,0:COLORS , 2 

LOCATES,20:PRINTORS (6)GR$(7)GRS(B)GR#(9) 
LOCATE6,21:PRINTORS(10)GR#(11)GR#(12)GR#(13) 

LOCATS28 , 20: PRINTGR#(14)GR#(15)GR#(16)60R$(17)GRS#(18)GR#(19) 
LOCATE28 , 21: PRINTGRS(20)GRS#(21)GR8(22)GR$(23)GRS(24)GR#(25) 
ATTRB1 ,1:LOCATE13, 2: PRINT”"PAC-MAN" : ATTRBO, O 

COLORS, 6: LUCATE: 21 


—->AFPICHAGE 





(1)=0:X(2)=0:X(3)=2: x (62: X(5)=0:X(6)=0:X(7)=-2:X(8)=-2 
A:x(2)2-1: Y(3)=0:Y(4)=0:Y(5)=1:Y(6)=1:Y(2)=0:Y(8)=0: FLOES F(2)*%0 
:COLORS ,2:ATTRB1,0 : LOCATE? , 23: PRINTUBING*#" ; VI : COLOR 
Pz0:F:0:Z:0:9C20:DRxO:FX(1)=27:FY(1)25:0X(1)=2:FX(2)=31: Pi (2)s27: DX(2)=-2:DX( 









1)=0:DY(2)=0 
390 ‘ 


400 


‘> DÉPLACEMENT DU GLOUTON 


410 * 


420 
430 
440 
450 


D=B8TICK(O):1F D=0 THEN 420 

DXzX+X(D):DY=Y+Y(D) 

C=POINT(DX*8+8,DY28+4) 

1F C=0 THEN SC=SC+5 : PaP+1:COLORS, 2: LOCATEZ26 , 23 : PRINTUSING"#4888" ; BC : PLAT"O4A 


OT1L12S081" 


460 
470 
480 
490 
500 
20 

510 
520 


1F C=4 THEN 620 = 

1F C=-10 OR C=-3 THEN 420 

IF C=:15 THEN SC=SC+20 

COLOR, 14: LOCATEX ,Y: PRINT" ":X2DX: Y=DY : COLORA , 14: LOCATEX ,Y: PRINTGRS(S) 

IF P=100 THEN P=0:TAB=TAB+.5:PLAY"O4A1T4L12FABOFAFASOLASI PA" : GOSUB1070 : GOTO4 





"-—--->DEPLACEMENT DES FANTOMES 


530 ? 


540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
630 
660 
670 
680 
690 
700 
710 
720 
730 
740 
250 
760 
170 


Xi=DX(1):T1=DY(1):FORIw"1TO2 

DX=SGN(X-FX(1))*2: DY=BGN(Y-FY(1)) 

IF DX<>0 AND (DX-=DX(1) OR DX(I)=0) THEN GOSUB960:1F DR=1 THEN DY=0:GOTO660 
IF DY<>D AND (DY=0Y(I) OR OY(I)=0} THEN GOSUB1000:1IF DR*1 THEN DX=0 :GOTO660 
ZX2FX(I)#DX(1):ZYeFY(I)+DY(X) 

C=POINT(ZX*8+8,ZY"8+4) 

IF C=4 OR C=-10 OR C=-3 THEN 610 ELSE680 

1F DX(1)<>0 THEN DXx0:GOTO640 

DY=O0:DX=-2:GOSUB960:1F DR=1 THEN 660 

DX=2:GOTO0 660 

DY=-1:GO8UB1000:1F DRx1 THEN 660 

DY=1 

DX(I)2DX:DY(1)}=DY 

1PZ=1 AND 1=2 AND DX(1):DXx(2) AND DY(1)2DY(2) THEN OX(2)=X2:DY(2)=Y2 
IF F(1)"0 THEH AS=GR#(3) ELSE A$-CHRS(32) 

LOCATE FX(I),FY(1):COLORO, 14: PRINTAS 
FX(I)=FX(X)+DX(1):FY(T)=FY(X)+DY(1):P(L)=POINT(FX(1)*8+8,FY(1)*8+6) 
AFF(1)=1$ THEN IF 1=2 THEN F(2)*P(1) ELSE P(1)=F(2) 
LOCATEFX(1),FY(1):COLOR15,14:PRINTORS(4) 

IF PX{I)=X AND FY(I)=Y THEN GM=1:152 

NEXT 

IF GM=1 THENS10 

1F FX(1)=FX(2) AND FY(1)=FY(2) THEN Z=1:X2m-X1:Y2=-Y1 ELSE Z=0 
GOTO420 


780 * 


190 


EEE >GLOUTON HANGE 


800 ‘ 


810 


Vi=Vi-1:LOCATE?,23:COLORS ,2:PRINTUSING"#" ; VI : COLOR, 14: FORI=STOASTEP-1 : PLAY'A 


OTAL60"+STRS(1I)+"SILASOFAMIREDO" : NEXT : PLAY"L96DODO" 


620 IP VI=0THEN PLAY"O2A0T3LIGFAFALABSFAPALIGFASLABFAFALEBRESRESRETERES" : END 
830 FORI»1702 

840 1F F(T)=0 THEN A$=GR$(5) ÆLSE AS=CHRS (32) 

850 COLORO:LOCATEFX{I).FY(1):PRINTAS 

860 IP Is1 THEN FX{1)27:PY{(1)2S:DX(1)=0:DY{1)=1 
870 IF 1=2 THEN FX{2)=31:FY{2)217:DX(2)=0:DY(21=-1 
680 F{I)"POINT(FX(1)*8+8,FPY(1)*68+4) 

890 COLOR15:LOCATEFX(1),FY{I):PRINTGRS( 4) 

900 NEXT 

310 X=19:Y211:LOCATEX, T:COLOR1:PRINTGRS (5) 

320 GMz=0:GOTO420 

230 * 

940 "----->CONTROLE DEPLACEMENT 

950 ‘ 

960 ZX=2PX{I)+DX 

970 C=POINTIZXNG+8,PY(1)28+4) 

980 IF Cr4 OR Cu-10 OR C=-3 THEN DR=0 ELSE DR=1 
990 RETURN 


1000 £yx=FY(1)+DY 

1010 C=POINT(FX(I)"8+8,ZT*8+4) 

1020 IF C=4 OR Cz=-10 OR C=-3 THEN DReO BLSE DR=1 

1030 RETURN 

1040 * 

1050 ?----- CHANGEMENT DE TABLEAU 

1060 ? 

1070 IP TAB-1NT{TAB)C>O THEN 1290 ELSE IP TAB-1 THEN RESTORE12340 


34 





1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
50 
1260 
1270 


1280 R 


1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 


1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 


2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 


IF TAB=2 THEN RESTORE1420 
IF TAB=3 THEN RESTORS1500 
1F TAB-=4 THEN RESTORE1580 
IF TAB=S THEN RESTORE1660 
IF TAB=6 THEN RESTOREA1740 
IF TAB:7 THEN RESTORE1820 
IF TAB-8 THEN RS88TORK1900 
IF TAB-9 THEN RESTORS1980 
IF TAB:=10 THEN RESTORB2060 


ATTRB1,0:1P TAB>10.5 THEN 2160 

FORI=STO1? 

READA$:LOCATE?, 1 

FORJ=17013 

IF MID#(A$,J9,1)="1" THEN COLOR4,S:PRINTGRS#(2); 8LSE COLORO,14:PRINTORS(3); 





A(I-4,3)=VAL(MIDS(AS.3,1)):NEXTI,1 
LOCAT819,11:COLOR1:PRIMTGORS(S):A(7,7)#2 
LOCATET, 5: COLORAS : PRIRTGRS( 4): LOCATE31,17:PRINTGRS(4) 
FX(1)=7:FY(1)=$:DX(1)=2: DY(1)°0 
FX(2)=31:FY(2)"17:DK(2)=-2:DY(2)=0 
F(1)20:F(2)20:X=19-7=11 

ETURN 


PORI25T017 : LOCATET , I :PORJ=1T013 
1F A(J,1-4)=1 THEN COLOR4,6:PRINTORS(2); ELSE COLOR O,14:PRINTGRS(3); 
NEXT:NEXT 

GOTO1230 

*----TABLEAU NO1 

DATA 0000010000000,0111010111110 
DATA 000010100000 ,1111010101211 
DATA 0000000100000,0111111111110 
DATA 0000000000000 ,0111111111110 
DATA 000001 0000000 .1111010101111 
DATA 0000010100000,0111110101110 
DATA 0000000100000 

‘----TABLEAU N0Z 

DATA 000000100000 ,0101010101010 
DATA 0001010001010, 011011111010 
DATA 0000000000010 111111111110 
DATA 0000000000000,0111111111111 
DATA 0100000000000,0101111101110 
DATA 0101000101000,0101010101010 
DATA 0000010001000 

*_---TABLEAU NO 

DATA 0000000100000,0111010101110 
DATA 0001010100010.1101010111010 
DATA 0000010000000  0111111111111 
DATA 0000000000000 , 111111111110 
DATA 0000000100000,0101110101011 
DATA 0100010101000.0111010101110 
DATA 0000010000000 

*----TABLEAO NO4 

DATA 0001000100000 , 001010101010 
DATA 0001010101000,0111010101114 
DATA 0000010100000,1111110111110 
DATA 0000000000000 , 0111110111111 
DATA 0000010100000 ,1111010101110 
DATA 0001010101000 , 001010101010 
DATA 0000010001000 

*----TABLEAU NOS 

DATA 0000000001000, 011111101010 
DATA 0100000001010 , 010111101010 
DATA 0101000001010, 010102001010 
DATA 0101010101010, 0101010101010 
DATA 0101000001010,0101031111010 
DATA 0101000000010,0101011111110 
DATA 0001000000000 

*----TABLEAU N06 

DATA 0000000000000 ,0111111111110 
DATA 0010001000100 , 1020101010104 
DATA 0000100010000, 011111111110 
DATA 0000000000000 , 0111111111110 
DATA 0000100010000,1010101010101 
DATA 0010001000100, 0111111111110 
DATA 000000000000 0 

*----TABLEAU NO7 

DATA 0000000000000 ,0111111111110 
DATA 0100000000010 , 010111111010 
DATA 0001000000010 , 1101011111110 
DATA 0000000000000 , 0111111101011 
DATA 0100000001000, 0101111111010 
DATA 0100000000010 011111111110 
DATA 0000000000000 

*----TABLEAU NO8 

DATA 0001000000000 ,0101011111110 
DATA 0101000000000 ,0101101111111 
DATA 0000101000000, 1110201011110 
DATA 0000100010000 , 0111101010111 
DATA 0000001010000, 111111011010 
DATA 0000000001010,0111111101010 
DATA 0000000001000 

"----TABLEAU NO9 

DATA 0000001000000,0111101011110 
DATA 0001001010000  1101011010111 
DATA 0001000010000 , 010111011110 
DATA 0100000000010,0111101111010 
DATA 0000100001000 , 110101101011 
DATA 0000101001000 ,0111101011110 
DATA 0000001000000 

"----TABLEAU N010 

DATA 000100000000, 001011101010 
DATA 0101000001010, 000010100010 
OATA 012111011110, 0100010100010 
DATA 0101000001010,0101011101010 
DATA 0101000001010,0101112111010 
DATA 0100002000010,0112101011110 
DATA 0000001000000 


2130 ‘ 


2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 


fe) PIN DE LA PARTIE 

‘ 

COLOR1 ,14:LOCATEX,T:PRINT" ":X=19:Y=11:DXx0: DY=-à 
FORJ=1TO4:RESTORE 2380 

FORI=17030 

GOSUB2340 

IF C=-15 OR C=15 THEN 2280 

IF DXC0 THEN 2250 

DY=0 : DX= -2 : GOBU82340 

IF C=-15 OR C215 THEN 2280 

DX=2:G0702280 

DX=0: DY= - 1 : GOSUB23 40 

IF C=-15 OR C=15 THEN 2280 

DY=1 

LOCATSX,Y:PRINT" * 

X=X+0X : Y=Y+DY: LOCATER, L: PRINTORS (5 ) : READAS : PLAYAS 
NEXT:NEXT : END 


2310 * 


2320 


fu--23B FIN DE PARTIE 


2330 


2340 
2350 
2360 
2370 
2380 


CaPOINT( (X+DX)*8+8,(T+DY)*8+4) 
RETURN 


DATA O3A1T4LISPRE,SO,L9SI,S0,LI8RE,S1,90,L9S1.90.L18RE, BO, L3081,S0,RE,L1880 


:L9SI,S0,L18RE,SI.S0,L981,R0,L1BRE,SI,S80, L9SI,80,L18RE,RE, L&8S0 
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CHAMPIGNON 


Un petit jeu très coloré sur MOS5 et MO6. Une bonne idée pour les 
petits, si vous acceptez l'aide qui vous est proposée. et un jeu 
d'adresse pour les plus grands, sans cette aide. 6 niveaux de 
difficultés. Le jeu consiste à rattraper une balle à l'aide d'un 
récipient: mais la balle descend à travers une forêt de champi- 
gnons. ce qui à pour effet de l'envoyer de gauche à droite sans 


que l'on puisse prévoir ces mouvements. 


LA ROUE DE LA FORTUNE 


Voici enfin l'adaptation MO6 du célèbre jeu télévisé «LA ROUE DE 
LA FORTUNE». Bien sûr ce programme ne retrace que la partie 
«intellectuelle» du jeu dans la mesure où falre tourner une roue 
n'est pas d'un grand intérêt. Il vous faut donc trouver le proverbe, 
titre de film... en essayant successivement des voyelles qui 
apparaîtront dans la phrase si tel est le cas. 
Lorsque vous en avez assez de toujours chercher la même 
énigme, listez le programme et changez les variables en ligne 
100. 

A$: le mot ou la phrase 

V: le nombre de voyellles 

D: la colonne de départ de l'affichage (selon la longueur 
de l'énigme) 

SUJ$: le type d'énigme(film, proverbe...) 
Et pendant qu'on y est vous gagnerez des montagnes de $: à 
moins que vous ne fassiez banqueroute | 
David SCHWEYER 


$ CLEAR ,,1 

6 BCRBEN 4,6,6 

10 DEFGR$(0)226,60,126,126,126,126,60,24 

11 CLS:CIRCLE(40,40), 30 

42 CIRCLE(40,40),25 

13 CIRCLE(40,40),20 

16 CIRCLE(40,40),15 

15 CIRCLE{40,40),10 

16 CIRCLE(40,40),5 

20 CIRCLE(280,40),30 

21 CIRCLE(280,40),25 

22 CIRCLE(280,40),20 

23 CIRCLE(280,40),15 

26 CIRCLE(280,40),10 

25 CIRCLE(260,40),5 

$0 ATTREO, 1:COLOR1:LOCATE1S, 2:PRINT"LA ROUS":LOCATE16,4:PRINT"D£ LA“:LOCATE1S,6: 
PRINT''PORTUNE" : ATTREO ,0: COLOR 

60 FORI=OTOPBER (8241 )+PBEK (24671 ):Y=RND:NEXTI 

100 AS="NUL N'BST PROPHETE EN SON PAYS" :V=8:Ds6:S0J8="(PROVERBE )" 

120 FOR I=1 TO LEN(AS) 

123 Hÿ=MIDS(AS,1,1) 

125 1FHÿ=" "THENLOCATEI+D, 10: PRINT" ":EmB+1 BLSEIFM$=" ""THENLOCATEI+D, 10: PRINT" ‘ 
":828+1 BLSEIFHÿ="-"THENLOCATEI+D, 10: PRINT"-":E2E+1 ELSELOCATEI+D,10: COLOR O:PRI 
NT GR$(0) 

140 NEXT 

145 LOCATE13, 12 : COLOR1 : PRINTSUIS : COLOR4 

146 PLAY "L24LAFASLAOSRE" Ci 

150 LOCATE0,15:PRINT'VOTRE LETTR M::L#=INPUTS(1):LOCATELS,15:PRINTLS 

192 TL#=TL$+L$: FORJ=1TOLEN(TLS)-1:1FL$#=MIDS(TLS,9,1 JTHENPLAY "DORE": G=G- 500 : GOSUR 
310 : GOTO190 

153 HEXTJ 

154 1FL$= THEN 200 

155 IF L#="A"ORL="E"ORLY="I"ORLSc" 
160 FOR 11 TO LEN(AS) 

161 X=1INT(RND*30+1):LOCATEO,1 

165 M$=HID$(A$,1,1) 

170 IF L$=H$ THENLOCATEI4D, 10 : PRINTLS : G2G+500:C2C+1:K=1 : PLAY"OSL12S1" 

175 GOSUB310 

180 NEXT 

162 IP X=10ORX=150RX-200RX=250RX=30THENLOCATE9, 20 : ATTRBO, 1 : COLORL , ?: PRINT"BONUS 

+":X2100;"F":PORI=1T03 : PLAY"OSL12MIMI 8FARSO" : NEXTI :G=G+ (X#*100 ) : PLAY"L5O0PP" : LOCAT 
E 9,20:COLORG,6:PRINT SPC(14):ATTRBO, 0 : COLORS, 6: LOCATEZS , 15 : PRINT GAIN8=" ;G:GOTQ 
185 

183 1F X=60RX=110RX=27THENG-0 : ATTRBO, L : COLOR? , 1 : LOCATE12, 20: PRINT"BQROUTE”" : PLAY" 
L96O3SOFAMIRE" : LOCATE1 2, 20 : COLOR6 , 6: PRINTSPC(7) : COLOR4, 6 : ATTRBO, C : GOSUB310 

185 17 K=0 THENPLAY*DO" 

186 K=0 

190 IF C+V+E=LEN(A$) THEN 200 ELSE GOSUB 300:GOTO0 150 

200 LOCATEO, 18: INPUT"PROPOSITION ? ",P# 

210 1F P$<>A$ THENATTRB1, 0 : COLOR1 : PLAY" L50D0" : LOCATE?. 20: PRINT"NON ! HELAS.._":F 
ORT=1T02000:HEXT: CONSOLE18 , 24 : CLS : ATTRBO , 0 : COLOR4 : GOSUB300 : GOTO200 

220 ATTRB1, 1:COLORS : LOCATES , 20 : PRINT"BRAVOOOO :ATTRBO,0:LOCATED+1, 10: PRINTA 
$ : COLOR4: LOCATEL,22:PRINT"Vous avez gagne pour";G;"F de cadeaux":FOR I=1 TO 3:PL 
AY"OSL24DO0MISO" :NEXT 

230 CONSOLEO, 24 : END 

300 LOCATE1S,15:PRINTSPC(3 ) : RETURN 

310 IF G<0 THENG-=0 

320 LOCATE25,15:PRINT"GAINS=";:G: RETURN 

9990 FOR Icl TO 3 

10000 PLAY"OSL12MIMI#FA#SO" 

10001 NEXT I 









RL$="U"THENP LAY "DO" : GOTO190 
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0 CLERR, ,7 

10 SCREEN 4,7,8:CL8:ATTRB 1,0 

100 * 

110 * 

120 LOCATS 0,4,0:FRINT"CROIBISSEZ DE 1 À 6" 
130 LOCATE 0,9:PRINT"VOTRE NIVEAU “;::AB2INPUTS(1):IP Aÿ<*1" OR Aÿ>"6"* THEN 130 & 
L88 COLOR 1:PRINT Aÿ;: 

140 LOCATE 0,14:COLOR 4:PRINT"ABBIBTANCE (0/N) “::D8=INPUTS(1):1F D$<>"O" AND DS 
€D"N" THEN 160 ELBE COLOR 1:PRINT D$; 

150 NI»VAL{AS) 

160 CLa 

170 

180 * 

190 ! 

200 ! --»> Ligne © 

210 DEFGRS(0)=26,60,126,126,255,255,255,126 
220 DEFGRS(1)=224,24,24,60,60, 60,60, 24 

230 DEFGR$(2)=24,26,60,60,60, 60,24,0 

240 DEPGRS(4)=0,0,0,60,102,66,102,126 

250 DBFGR$(S)=60,26,36,60,60, 60,60, 24 

260 COLOR S:LOCATE 19,22:PRINT CHRS(132) 

270 LOCATS 19,23:PRINT CHR$(133); 

280 * 

290 

300 

310 POR L=10 TO 18 STEP 2 

320 FOR H=20-L TO L STEP 4 

330 LOCATE H#2-1,L-1:COLOR 1:PRINT CHR$(128) 
340 LOCATE H*2-1,L:COLOR Z:PRINT CHRS(129) 
350 NEXT H 

360 NEXT L 

370 

380 * 

390 

400 XJ=10:XJP=1:X#10 

410 CG20:CR=:102NI+5 

420 COLOR 1:LOCATÉ 18,1:PRINT"Ruma1s:* ;CR 
430 COLOR 4 

440 

450 

460 ! 

470 FOR Y=S TO 9 

480 LOCATE 19,Y-2:PRINT “ * 

490 LOCATS 19,Y-1:PRINT CHR#(130) 

500 GO0SUB 1150 

510 NET Y 

520 X=10 

530 Y=9 

540 FOR C=1 TO 5 

550 GOSUB 1020 

560 HEXT C 

870 

s80 

590 * 

600 FOR C=19 TO 22 

610 GOSUB 1150 

620 IF D$="0" THEN GOSUB 1280 

630 LOCATE X*2-1,C-2:PRINT" " 

640 LOCATE X*2-1,C-1:PRINT CHR$(130) 

650 NEXT C 

660 LOCATE X22-1,21:PRINT" * 

670 

680 

690 ! 

200 IF XJ=X THEN CG=CG+1 : PLAY"L2DOREMIPASOLASI" 
710 CR=CR-1 

120 COLOR 1:LOCATE 18,1:PRINT"Sssais:";CR 
230 

740 ‘ 

750 ! 

760 IP CR>0 THEN 550 

770 BSEP 

180 BE8P 

290 CLS 

800 LOCATE 1,9:PRINT "TEMPS DS JEU BCOULE" 
810 LOCATE 1,14:PRINT CG;"DANS LE POT!" 

820 LOCATE 1,19:PRINT "TAPER "ESPACE" " 

830 IP INKEY$<>" “ THEN COLOR, ,1:GOTO 820 
840 GOTO 10 

850 IF CG<>(102N1) THEN 980 

860 ‘ 

870 

880 * 

890 COLOR O:LOCATE XJ*2-1,20:PRINT CHR$(128) 
900 COLOR 1:LOCATE XJ#2-1,21:PRINT CHRÿ(129) 
910 FOR I=1 TO 20 
920 BEEP 
930 NEXT I 
940 LOCATE 1,1:PRINT "BRAVO; SCOR 
950 LOCATE 1,3:PRINT"'TAFER ‘ESPACE 
960 IF INKEY$<>" ” THEN COLOR, ,1:GO0TO0 950 
970 GOTO 10 

980 GOTO 470 

990 ‘ 

1000 

1010 ‘ 

1020 D=1-2#INT(RND*2) 

1030 FOR M=1 TO 4 STEP 2 

1040 LOCATE X#2-1,Y-1:PRINT" * 

1050 X=X+D:1F X=20 THEN X=1 

1060 Y=Y+1:1F X=20 THEN X=19 

1070 LOCATE X22-1,Y-1:PRINT CHR$(130) 

1080 PLAY"T1L505D0" 

1090 GOSUB 1150 

1100 NEXT M 

1110 RETURN 

1120 ‘ 

1130 

1140 ‘ 

1150 XIP=XJ 

1160 COLOR 5:A$=INKEYS 

1170 XJ=2XJ+(A8-CHR$(8))-(AS=CHR$#(9)):IF XJ<2 THEN XJ=2 ELSE IF XJ>19 THEN AJ=19 
1180 IF XJ=XJP THEN FOR T=1 TO 30/NI:NEXT T:COLOR 4:G0TO 1230 
1190 LOCATE XJP#2-1,22:PRINT" 

1200 LOCATE XJP*2-1,23:PRINT" ” 

1210 LOCATE XJ#2-1,22:PRINT CHR$(132) 

1220 LOCATE XJ*2-1,23:PRINT CHR#(133); 

1230 COLOR 4 

1240 RETURN 

1250 

1260 

1270 ‘ 

1280 XJP=X] 

1290 IF XJ<X THEN XJ=XJ+1 

1300 IF XJ>X THEN XJ=XJ-1 

1310 COLOR 5 

1320 IF XJP<>XJ THEN BEEP:GOSUB 1190 

1330 COLOR 4 

1340 RETURN 


R#NI*10:" 
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JACK-POT 


Un grand classique que vous avez été nombreux à programmer: 
la traditionnelle machine à sous. Vous misez, tirez la polgnée et 
c'est parti. Vous avez la possibilité de ne relancer que certaines 
des 3 roues afin de réaliser l'une des combinaisons gagnantes. 
Et si vous accrochez et que vos réserves fondent à vue d'oeil, 
n'oubliez pas que ce n'est qu'un jeu. 


O0 CLEAR,,68 


DHRE=RND:1P INKEYÿ="”" THEN 10 
DEFGR$(84)2255,256,252,268,240,224,192,126 
DEPORS(8$)=2258,127,63,34,15,7,3,1 
DEPGR$(86)"1,3,7,15,31,63,127,255 
DEPGRS(87)=128,192,226,260,268,252,254,255 


2D DEPGRÿ(0)=0,0,0,0,1,2,4,8 


90 

100 
110 
120 
130 
140 
150 
160 
170 
160 
190 
200 
210 
220 
239 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
360 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
#10 
520 
530 
540 
550 
560 


DEPGRY(1)=1,7,26,100,132,8,8,8 
DEPGR(2)=86,109,253,283,283,121,16,0 
DEFGRY(3)=240,216,282,252,282,282,248, 112 
DEPGRS(4)=32,32,112,112,120,126,1246,127 
DEPGRS(S)=127,63,63,34,15,7,1,0 
DEPGR$(6)"0,192,226,240,282, 254,254 ,28 
DEFGR$(7)=3,7,31,63,63,127,127, 258 


DErGR$(8)#192,224,252,252,218,239,217,255 
DEPGRS(9)=285,288,288,127,63,63,15,1 
DEFGRS(10)=258,255,285,256,254,252,260,224 
DEFGR#(11)=0,1,3,15,31,31.63,63 
DEFGR#(12)=114,285,254,292,284,256,256,252 
DEFGR#(13)#127,127,127,127,127,43,126,24 
DEPGRS#(14)2:252,268,240,240,226.128.,0,0 

? —=PROGRAMME 
SCR&EN 3,4,4:CLS:COLOR 3,1 
LOCATE 9,0: PRINT" 














LOCATE 9,1:PR1NT”*s 

LOCATE 7,2:PRINT" _ 

LOCATE 7,3:PRINT" ";:ATTRB 1,0: PRINT" JACK POT";:ATTRB O,0:PRINT " 
LOCATE 7,4:PRINT" 

BOxF(0,5)-(33,18)".",3,1 

GOTO 310 


BOXF(2,7)-(7,11)" * 

BOXF(10,7)-(15,41)% 

BOXF(18,7)-(23,11)" " 

B0xr(26,7)-(31,11)" " 

RETURN 

COLOR 3.4:GO08UB 260 

CONSOLE 19,24 

CR=10 

COLOR 3,4 

LOCATE 36,5:PRINT CHR$(214);CHR$(127);CHR$(215) 

LOCATE 36,6:PRINT CHR$(127):CHR#(127):CHR$(127) 

LOCATE 36,7:PRANT CHR$(213}:CHR$(127) :CHR$( 212) 
LINE(37,8)-(37,14)CHR$(127). 3,6 

LOCATE 36,15:PRINT CHRÿ(214);CHR$(127) 

LOCATE 34,16:PRINT CHR$(127):CHR$(127);CHRS(127) ; CHRS(212) 
GOSUB 970 

G(4)=0:6(1)-0:0(2)x0:G(3)=0 

H(4)=0:H(1)=0:H(2)20:H( 3 )20 

COLOR 3,4:LOCATE 3,15 :PRINT"HOLD" 

LOCATE 11,15:PRINT "HOLD" 

LOCATE 19,15: PRINT"HOLD" 

LOCATE 27,15:PRIMT"HOLD" 

COLOR 7,4:LOCATE 0,19:PRINT "CREDIT DISPONIBLE: ";CR;"#" 
PRINT:INPUT "VOTRE MISE SVP :",M:IF M>CR OR M=-0 THEN 490 
cLs 

CR=CR-M 
PRINT'VOTRE CREDIT: " 
PRINT : PRINT"ATTENTION" : AB= INPUTS( 1 ) 

PLAY"OSA1LS6DOA0" 

G-0:GOSUB 970 
PLAY"A1L1005SILASOPAMIREDOO4SILASOFAMIREDOO3SILASOFAMIREDOOZST LASOFAMIREDOAC 





L24* 


870 
580 
590 
600 
610 
615 
620 
-630 
640 
650 
660 
670 
680 
con 
700 
710 
720 
730 
7140 
750 
760 
770 
780 
190 
800 
965 
970 
960 
9590 
995 


1000 


COLOR 7,4:CL8: FRU QUE VAR -VOUS 2°" 
PRINT"... 
POR I=1 ro 3 
AS=INPUTS (1) 
IF ASC(A#ÿ):13 THEN Ixé:GOT0 640 
G=VAL(AS) 
G(G)=1:LOCATE G48-5,15:COLORS, 3: PRINT'HOLD":COLOR 7,4 
NEXT ! 
GOSUB 970 
1F H(1)=5 OR H(2)=5 OR H(3)e$ OR H(4)=5 THEN 750 
FOR 1x1 TO 4 
X=0:Y=0 
FOR J=1 TO 4 
IF H(X)=H(J) THEN X=X+1 
NEXT J 
IF X22 THEN Y=1+H(X):1=5 
NEXT I 
IF X<3 THEN 750 
G=MaX2Y 
CLS:COLOR 7,4:CR=CR+G 
IF GA20 THEN PRINT" PERDU!":G0TO 760 
PRINT'BRAVO! VOUS AVEZ GAGNE:";:G:"#1" 
IF CR=0 THEN PRINT:PRINT"PARTIE TERMINEE":GOTO 330 
PRINT:PRIHT'TAPEZ UNE TOUCHE..." 
A$=INPUTS(1):CLS:GOTO 420 
END 
* ROUE 
COLOR 3,5:GOSUB 260:COLOR 3,4 
FOR I1=1 TO 4:LOCATE 0,0,0 
BOXF(1*8-6,7)-(1*8-1,11)" " 
IF G(l)=1 THEN H=H(X):GOTO 1030 





1010 H=1INT(RND*6)} 
21020 PLAY"OSL12S1" 
1030 IF H=0 THEN LOCATE I*8-4,8:PRINT GR$(O)GR$(1):LOCATE 1*8-4.9:PRINT GRS{2)GR 


#03) 


1040 IF H=1 THEN LOCATE 1*8-4,8:PRINT GR#(4)" “:LOCATE 1*8-4,9:PRINT GR#(5)GR#(6 


) 
Hs IF H22 THEH LOCATE 128-4,8:PRINT GR${7)GR$(8):LOCATE I*8-6,9:PRINT GR$(9)GR 
(10) 





1060 IP H=3 THEN LUCATE 1%8-4,8:PRINT GRS(11)R$(12) : LOCATE 1%8-4,9:PRINT GRE(13 
} 


+4 THEN ATTRB O,1:LOCATE 128-5,9:PRINT' BAR" 


1080 IP H=5 THEN ATTRB O,.1:LOCATE 1#8-5,9:PRINT"LOST" 
1090 H(I)="H:ATTRB 0,0 

1100 NEXT I 

1110 RETURN 
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SUPER 
CLAVIER 


Apres les publications de ‘SUPER-CLAVIER" pour TO9 ancienne version 
dans TEO No 7. pags 68, et du programme rectifie pour 109 ‘modifie’ (TEO No 
13, page 16). voici la nouvslle version pour 708. 


Le programme contient un chargeur hexadecimail destine a implanter en 
memoire la routine SUPER-CLAVIER 16 octets par 16 octsts. 


STRUCTURE DU PROGRAMME BORA: 


ligne 20: Resarvation memoire dans la zone RAM non-commutable du TOB, 
de 4H9800 a 4H9FFF 
lignes 30 a 80: Implantation memoire des codes hpxa. contenus dans les 
datas des lignes 10000 a 10070 
Teste si une erreur de datas a ets commise dans la frappe des 
lignes 10000 a 10070. Si c'est 19 cas, le programme 
affichera: "ERREUR DE DATA EN LIGNE: XXXX 
“> CHECKSUM: nonn° 
et listera a l'ecran la ligne erronse pour correction. 
Lancement de la routine SUPER-CLAVIER apres implantation des 
codes. 
ligne 100: Positionnement Curseur et suppression du programme Chargeur. 
lignes 10900 a 10070: Liste des codes hexa. de la routine SUPER-CLAVIER, 
ranges Par groupes de 16 octets accoles, suivis ou CHECKSUM (somme 
de controls utilises dans la detection des erreurs de saisis) 


ligne 75: 


ligne 90: 


IMPLANTATION DE LA ROUTINE: 


Si une adresss d'implantation differente est choisie par 
l'utilisateur. il faudra remplacer l'adresse £H9810 en ligne 60 du programme 
basic par: 

POKE <Nouvelle adresse> + C # 16 + B. 
et modifier l'adresse du CLEAR en ligne 20. 


SAUVEGARDE DU PROGRAMME : 


Avant execution: SAVE "SUPERCLA.8AS" 
Ou apres execution: SAVEM "SUPERCLA.BIN".4H9800,4H9C73 ,8H9953 
SAUVEGAROE D'UNE CONFIGURATION PARTICULIERE OÙ CLAVIER: 
Comme pour la version de SUPER-CLAVIER pour T09 (TEO No 7, page 69), 
il est toujours possible de sauvegarder la configuration actuelle des 


touches F6/F9 an faisant: 


SAVEW ‘nom clavier” .&H9800,4H9FFE 0 
{si l'implantation est faite en &H9800) 


Pour rappeler cetre configuration ultérieurement. on pourra utiliser 
le ‘lanceur BASIC’ publie dans FEO No 7, page 70 ou dans TEO Mo 13. page 16 
en Pprecisant le nom du nouveau clavier choisi. 
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EXPLICATION OES MODIFICATIONS : 


Pour toutes les modifications qui suivent, se reporter au listing 
hexa 109 publie dans TEO No 7, page 70. 


1 - # Dans le code-source: 


. Remplacer le vecteur RAM de test clavier du 109 par celui du TO8, soit: 
GETCLV EQU BFCE9 a remplacer par GETCLV EQU 8FF92 
. Remplacer LOD #$FC89 par LOD N8FF92 (Adresses 89861 a 99863) 


* Ou dans le listing hexadecimel (code-objet ): 
. À l'adresse B9BLE ---> FC par FF 
$981F ---> 89 par 92 
$9862 ---> FC par FF 
$9863 ---> 89 Dar 92 


2 - Modifier entierement la tabla de correspondance "rouches/mots-cies” 
de l'adresse S9BD3 a l'adresse 89C72. 


En effet,ln table des mots-cles sur T08B est organises de maniere 
totalement differente par rapport a celle du TO9 1ere version. 


Pour modifier la table de correspondance de SUPER-CLAVIER, 11 faut 
savoir que chaque mot-cle du BASIC 512 du TO8 est range dans une table en 
memoire, et qu'il correspond a un offset code sur un octet (utilise par 
l'interpreteur BASIC pour le retrouver plus facilement). 


Les octets des adresses $9803 a #89c72 de GUPER-CLAVIER représentent 
chacun un mot-cle du basic TO8. Ils participent aux affectations affichees 
dans les menus dBeroulants des touches F1 a F5, et sont ranges dans cet 
ordre. 

On peut modifier les affectations d'origine des menus F1 a F5 en 
changeant ces codes (valeur comprise entre &HOF et E&HCS), selon les 
indications de la table suivante: 


OF END 2E PSET 40 SPC( éc PUT 8B FRE AA CSALIN 
10 FOR 2F MOTOR 4€ USING 6D GET 8c SOR AB POINT 
11 NEXT 30 SKIPF 4F USR 6€£ VERIFY 80 LOG AC SCREEN 
12 DATA 31 EXEC SO ERL éF DEVICE 8E EXP AD POS 
13 OIM 32 8EEP 81 ERR 70 DIR 8F cps AE PTRIG 
14 READ 33 COLOR 52 OFF 71 FILES 90 SIN AF OSKF 
15 LEY 34 LINE 53 THEN 72 WRITE 91 TAN 80 CYI 
16 GO 35 80x S4 NOT 73 UNLOAD 92 PEEK 81 Cvs 
17 RUN 36 UNMASK 5$ STEP 74 BACKUP 93 LEN 82 cvo 
18 1F 37 ATTRB s6 + 75 cOPY 94 STR$ 83 MKIS 
19 RESTORE 38 DEF sr 76 CIRCLE 95 VAL B4 MKSS 
LA RETURN Ÿ9 POKE s8 * 77 PAINT <é6 ASC 85 MKD$ 
1B REM SA PRINT 59 / 78 RÉSET 97 CHR$ Bé LOC 
ic 38 CONT SA © 79 RENUM 98 EOF 87 LOF 
10 STOP 3C LIST S5B AND 7A SWAP 99 CINT 88 SPACES 
1€ ELSE 30 CLEAR SC OR 78 « 9A CSNG 89 STRINGS 
1F TRON 3€ INTERVAL 50 XOR 2C WINDOW 98 COBL &A OSkIS 
20 TROFF 3F KEY SE EOV 70 PATTERN 9C FIX 88 FKEYS 
21 DEFSTR 40 NEW SF 1MP 7€ 00 90 HEXS BC MIN( 
22 DEFINT 41 SAVE 60 m0D 7F LOOP 9E OCT$ 80 MAX( 
23 DEFSNG 42 LOAD é: @ 80 EXIT 9F STICK BE ATN 
24 DEFOBL 43 MERGE 62 » BL INMOUSE AO STRIG  8F CRUNCHS 
2s ON 44 OPEN 63 = 82 MOUSE A1 GR$ CO MTRIG 
26 WAIT 45 CLOSE 64 < 83 CHAIN A2 LEFTS Ci EVAL 
27 ERROR 4e INPEN 65 DSKINI 84 COMMON A3 RIGHTS C2 PALETTE 
28 RESUME 47 PEN 66 DSKO$ 85 SEARCH A4 MID$ C3 BANK 
29 AUTO 48 PLAY 67 KILL 86 FWD AS INSTR C4 HEAD 
2A OELETE 49 TAB( 68 NAME 87 TURTLE A6 VARPTR C5 ROT 
28 LOCATE 4a TO 69 F1ELO 88 SNG A7 RND ce SHOW 
2C CLS 4e SUB 6éA LSET 89 INT AB INKEYS$ C7 ZOOM 
20 CONSOLE 4C FN 6B RSET 8A ABS A9 INPUT CB TRACE 
HE D ORRRRRERERRRERRRRERRRRERRRRRRRRRRRR 

Ld * 

* SUPER-CLAVIER * 

Km mm mme * 

# TO8 * 

Li FRS * 

2 k KKRRRKRRRRRKERRRRRRRRRRERRRRRRRARR 

3 L 

4  =cmmmsmmemmmmemmmmmmmmm 
Sauvegarde avant execution: 

SAVE "SUPERCLA. BAS" 

5 L 

L) : 

6 Ou apres execution: 
SAVEM"SUPERCLA. BIN",&H9800 ,&H9C73,&H9953 
OR EL 7 nn on cn 

7 % 

8 * CHARGEUR HEXA & LANCEUR: 

9 L] 


20 CLEAR, , ,&H97FF 

30 FOR C=0 TO 70 

40 CTOT-0:READ A$,CTRL 

50 FOR B=0 TO 15 

60 POKE &H9810+C*16+B,VAL("&H"4MIDS$(AS,1+Bx2,2)) 
:CTOT=CTOT+VAL("&H"4+MIDS(A$,1+B* 2,2)) 

70 NEXT B - 
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75 IF CTOT<>CTRL THEN PRINT"'ERREUR DE DATA EN 
LIGNE :";:10000+C;"-->CHECKSUM:":CT 
OT:POKE&H6C38, (10000+C)@256 : POKE&H6C 39, (10000+C) 
MOD256 : LIST. : STOP 
80 NEXT C 
90 EXEC &H9953 
100 LOCATE 0,7:NEW 
10000 DATA 31312920CD2058249CF39FFE31BDFF92,1983 
10001 DATA 34731A50318CDDC190252CC19822286D,1629 
10002 DATA 3E1026011BC40F6D3D2704E13F260263,995 
10003 DATA 3DE73F6D3D270617013rF160103338D02,877 
10004 DATA 7E17017C1600F96D3D2616C106102600,1028 
10005 DATA FOCCFF92FD600A338D02861701621600,1676 
10006 DATA DFC19927306D3E26596DA42711C14010,1556 
10007 DATA 2500CEC41F17016C1701A11600C2C10D, 1209 
10008 DATA 102600BC338D03291701351700EB8601, 948 
10009 DATA A7A41600ABA63F8105102500A3633E6D, 1373 
10010 DATA 3E27126F8D02AC338D027B1701128601,1039 
10011 DATA A7A416008B338D02F81701041700BA16,1193 
10012 DATA 007E6D8D028D261B5D102B0073C14010,1124 
10013 DATA 25006DC45FE78D027A338D02651700E0,1475 
10014 DATA 16005DA6A4C1012716C10D262D17013B,1072 
10015 DATA 6DA4260B633E338D025F1700C320416F,1198 
10016 DATA 8D0250338D02AA1700B617006C338D02,1117 
10017 DATA 151700AC8601A7A42026C10826088101,1129 
10018 DATA 271E6AA4201BC1092608811122126CA4,1116 
10019 DATA 200FC120250A81112206E7A66CA42001,1207 
10020 DATA 5F35F3318DFEAD338DFEC2FF600A8601,2144 
10021 DATA A7A46F3D6F3E6D3C2618338D0305C681,1434 
10022 DATA 86A0A7C05A26FB335FEFA814CC9FFEED, 2459 
10023 DATA A816338D01498D4839C631EB3FE78D01,1644 
10024 DATA 97B6601BF660203406338D01778D4A4F,1494 
10025 DATA 340234023402C61BBDE803C65CBDE803,1525 
10026 DATA 3504CB40BDE803C61BBDE803C65CBDE8, 2108 
10027 DATA 0335048D2F8D6535024C812026D2200A,1072 
10028 DATA B6601BF6602034068D0F3506B7601BF7,1505 
10029 DATA 6020338D01EA8D01 39E6C05D2705BDE8 ,1734 
10030 DATA 0320F6393404A63F8104230486FBAB3F, 1414 
10031 DATA C6203D1F0135043AA63F810423081F10,890 
10032 DATA 338D025F200B338D01B91F10E6CBCE27,1435 
10033 DATA E95D2707A6C02AFC5A26F939E6C02B05,1928 
10034 DATA BDE80320F7C47FBDE803396AA46DA426, 2088 
10035 DATA 068620A7216CA4E68D0118C41F8DA534,1625 
10036 DATA 405F5CA6C02AFBEFA812E7A818E6A4E0, 2368 
10037 DATA A818E7A8182736ECA814A3A812C30001,1677 
10038 DATA 1F01E6A8182B261DE3A81410A3A81623,1383 
10039 DATA 0535406FA439EEA814E6A818A6C4A7C5,2028 
10040 DATA A6C2301F26F81DE3A814EDA814354034,1763 
10041 DATA 20E6A05A2707A6A0A7C05A26F9A6A48A, 2088 
10042 DATA 80A7C03520E6A8182A1450342031C5A6,1632 
10043 DATA AOA7C0301F26F83520335FEFA814391F, 1630 
10044 DATA 20201F10160C1F404C1B5C5355504552,834 
10045 DATA 2D434C41564945521B5C1F20211F1214,847 
10046 DATA 001F20201F10160C1F404C1B5C434C41,674 
10047 DATA 56494552204E4F524D414C1B5C1F2020,1013 
10048 DATA 1F1214001F20201F10160C1F404E1B5C,537 
10049 DATA 544F554348452046311B5C1F4140201F, 949 
10050 DATA 20271F1214001F3030181B431B514146,628 
10051 DATA 464543544154494F4E204F5556455254,1186 
10052 DATA 45001F4057535552204C4120544F5543,1021 
10053 DATA 484520201B461B54001F20201F10161B,604 
10054 DATA 441B560C1F41451B431B51504C555320,916 
10055 DATA 415353455A20444520504C4143452044,1048 
10056 DATA 4953504F4E49424C451F43461B421B50,1045 
10057 DATA 5072657373657220737572206C612074,1503 
10058 DATA 6F75636865201B401B53454E54524545,1216 
10059 DATA 001F20201r12141B2320441B23205600, 506 
10060 DATA 090800AC37C33D121E10164AA9893F2B,1072 
10061 DATA 8211253A1A1455534EA64B2848192422,982 
10062 DATA 23212D2C96B89738C1BBA19DA8A5B9A2,2076 
10063 DATA A4409E928CA394494F95265077BFBC93,2047 
10064 DATA BD8E4D768A35331327868DC481469Fr34,1707 
10065 DATA COAE52472EC5C68736C87C517DC79B99,2186 
10066 DATA 9AADAA5BBE32847E80696D5C3E5FA07F,1964 
10067 DATA 6054446C5E787A91908F725DAB456A15,1698 
10068 DATA 6BO0OF1B3C29743B2A317170AF656F6742,1297 
10069 DATA 436820397917411F736E8BA7C2758583,1606 
10070 DATA 889C1DAOAOAOAOAOAOAOAOAOAOAOAOA0, 2401 
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REQUIEM POUR LES PIRATES 


r Cette rubrique sera animée 
par A.AKKAL, diplômé de la 
faculté de droit de Lyon, 
enseignant en droit des 
affaires, co-fondateur 

d'Horizon PME, cabinet de 

£ conseils en entreprise. Dans 
chaque numéro il traitera 
des dernières décisions 

; juridiques se rapportant à 


l'informatique. 
Les sujets abordés dépen- 
: dront de l'actualité; mais 
1: aussi des questions que 
je —… VOUS voudrez bien nous 
) soumettre. 


M Ilva de soi que les problè- 
mes de divorce ne seront pas 
traités dans ces colonnes. 


L'informatique est une donnée relativement 
nouvelle pour les praticiens du Droit. Il a fallu 
que l'ensemble des professionnels s'adapte afin 
de domestiquer cet outil fantastique qu'est 
l'ordinateur. 

Le Droit en tant qu'outil de normalisation des 
relations économiques et sociales a du égale- 
ment le prendre en compte, c'est en effet la Ju- 
risprudence qui la première a été amenée à se 
pencher sur le problème : suivie par le Législa- 
teur, lorsque son intervention devint nécessaire, 
par la grande Loi du 30/07/85. 


Le marché informatique est le marché le plus 
remuant par nature et parfois par l'effet de 
procès retentissants en matière de «piratage» par 
exemple. 

On doit souligner d'ores et déjà l'importance du 
«Software» car en termes économiques, il re- 
présente non seulement des sommes colos- 
sales mais également la clef de voûte de notre 


avenir car ilest urgent et actuel en cette 
période électorale de «mobiliser l'intelligence de 
l'entreprise» (1) car c'est en effet par l'entre- 
prise et par la recherche notamment informati- 
que que nous pourrons sereinement envisager 
de sortir d'une crise qui dure. 

D'après certaines estimations assez précises, la 
dépense française globale en matière de 
logiciels et de formation au produit sera voisin 
des 120 milliards de Francs à l'horizon 1990; la 
dépense mondiale quant à elle dépasserait 
allègrement les 55 milliards de Dollars (2). 


l- LES SALARIES ET LA CREATION 
INFORMATIQUE 
PENSER 


Souvent dans le cadre de leurs activités 
professionnelles les salariés sont amenés à 
réaliser des programmes informatiques pour le 
compte de leur employeur. Le problème qui 
se pose alors est de déterminer qui est le 
propriétaire de l'oeuvre. 


La Loi du 03/07/85 semble avoir résolu le pro- 
blème, mais nous devons constater que l'inter- 
prétation de ce texte laisse subsister quelques 
doutes ou incertitudes. 

L'article 45 de cette Loi dispose que «Sauf stipu- 
lation contraire, le logiciel créé par un ou 
plusieurs employés dans l'exercice de leurs 
fonctions appartient à l'employeur auquel sont 
liés tous les droits reconnus aux auteurs... Les 
dispositions du 1er alinea sont également appli- 
cables aux agents de l'Etat, des collectivités 
publiques et des établissements publics à carac- 
tère admnistratif. 


La loi de 1985 crée une présomption d'attribu- 
tion de la création informatique au profit de 

l'employeur; en fonction de cette présomption, 
le risque d'une démobilisation ou de fraudes 


1) H.SERIEYX «Mobiliser l'intelligence de l'entreprise» 1982 


2) J.SAINT GEOURS «investir dans l'intelligence» Le MONDE 23 
avril 1985 
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des salariés est réel et il ne faut pas le sous- 
estimer. 


Ce grave problème de «propriété» peut être réglé 
par anticipation soit dans le cadre du contrat de 
travail soit dans le cadre d'un accord postérieur 
au contrat de travail. ; 


La présomption d'attribution de l'oeuvre au profit 
de l'employeur est automatique en l'absence de 
dispositions spéciales du contrat ou de l'accord 
de travail postérieur lorsque certaines conditions 
sont réunies. 


En effet, lorsque l'employeur revendique comme 
sienne la création d'un ou plusieurs de ses 
salariés, il devra tout de même démontrer que 
l'oeuvre a été créée pendant les heures de travail 
et avec les moyens notamment techniques de 
l'entreprise. Une telle preuve est toujours difficile 
à apporter devant les Tribunaux. 


Lorsque, le salarié prend des garanties pour 
éviter que des ambiguïtés existent ou subsis- 
tent concernant la conception de son logiciel, il 
en est alors le seul proprietaire et pourra conser- 
ver son activité pour son seul avantage. 


Les deux garantles premières dont doivent 
s'entourer le salarié de droit privé, l'ensel- 
gnant et tous les salarlés soumis au statut de 
la fonction publique sont de ne pas travailler 
pour leur compte pendent les heures de 
travall qui sont normalement dues à 
l'employeur, et surtout ne pas travallier avec 
le matériel au sens large que l'entreprise 
possède. 


On pourrait discuter presque indéfiniment à 
propos de la fourniture de moyens intellectuels 
au salarié par l'entreprise pour le compte de 
laquelle il travaille. 

En effet, un salarié généralement embauché par 
une entreprise va accomplir une mission 
précise et déterminée dans le domaine 
informatique, et lorsqu'il décide de créer son 
propre logiciel, il va tout naturellement se 
tourner vers le domaine dans lequel il travaille 
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habituellement, on pourrait alors dire que le 
Salarié va indirectement ou directement tirer 
profit de l'investissement financier et intellectuel 
de l'entreprise. 

Nous savons que la contrepartie de l'investisse- 
ment consiste en l'obtention de profits, le salarié 
vient alors se positionner comme concurrent 
potentiel de l'entreprise pour laquelle il est tenu 
de travailler, on pourrait alors songer à une con- 
currence déloyale. 


Cette solution semble peu réaliste et 
d'une sévérité particulièrement mal venue alors 
qu'il est question de stimuler l'activité inventive 
des salariés qui doit en définitive profiter aux 


entreprises. 


Une réponse du Ministre de la Culture et de la 
Communication publiée au Journal Officiel 
Débats de l'Assemblée Nationale sous le numéro 
28470 en date du 26 /10 /87 devait régler 
le problème de l'interprétation de l'article 45 de 
la Loi de 85, or cette réponse pose le principe 
d'une attribution automatique et systématique de 
la création du logiciel à l'employeur. 


On se trouve ainsi face à une réponse dont 
l'esprit et la lettre contredisent la Loi en irisé- 
rant des dispositions plus sévères. La position 
de la Doctrine sur ce point est conforme à celle 
de la Jurisprudence et semble plus souple et 
plus favorable au salarié, car elle ne retient pas 
le caractère automatique de l'attribution du logiciel 
à l'employeur. 


Il — LA PROTECTION DES DROITS DE 
L'AUTEUR 
ER 


La loi du 11 mars 1975 a posé les principes de la 
protection de la propriété littéraire et artistique 
en donnant une définition des droits de l'auteur 
d'une «oeuvre de l'esprit». L'article 1er de la loi 
du 11 mars 1957 dispose que : «L'auteur d'une 
oeuvre de l'esprit jouit sur cette oeuvre, du seul 
fait de sa création, d'un droit de propriété incor- 
porelle exclusif et opposable à tous. Ce droit 
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comporte des attributs d'ordre intellectuel et 
moral, ainsi que des attributs d'ordre patrimonial 
qui sont déterminés par la présente loi.» 


La loi du 11 mars dans son article 3 établit 
une liste d'activités intellectuelles et artistiques 
méritant la protection spéciale par le droit 
d'auteur. Cette liste a été complétée par l'ancien 
ministre de la culture, monsieur Jack LANG, dans 
le cadre de la loi du 3/7/85, on peut aujourd'hui 
rappeler que les logiciels sont de véritables 
oeuvres de l'esprit. La loi a du évoluer car les 
mentalités et les techniques ont connu un essor 
sans précédent. 


La jurisprudence assimilant de façon dominante 
le logiciel à une oeuvre de l'esprit, au sens strict, 
a été consacrée par la loi Lang. 


On peut à ce propos citer une décision de la cour 
d'appel de Paris le 2/11/82 (Expertiser 1982 n°46 
p.243) Gazette du Palais 3/04/83, p.13 note Bon- 


neau : 


«L'élaboration d'un programme d'application 
d'ordinateur est une oeuvre de l'esprit originale 
dans sa composition et son expression allant au- 
delà d'une simple logique automatique et contrai- 
gnante...» 

Le demandeur, c'est-à-dire l'auteur, est fondé à 
se prévaloir de la protection du droit d'auteur. 

Le Tribunal de Grande Instance de Paris dans un 
procès opposant Apple à Seginex le 21/09/83, a 
apporté une contribution sans égale à l'assimi- 
lation du logiciel à une oeuvre de l'esprit. 

«Si les programmes d'ordinateurs ne sont 
pas immédiatement perceptibles par les sens de 
tout un chacun comme le sont les oeuvres littérai- 
res ou plastiques, ils sont néanmoins accessibles 
et intelligibles grâce à leur transcription sur 
divers supports matériels teis que les listings, les 
écrans ou les enregistrements magnétiques; que 
si, à l'évidence, leur lecture n'est pas à la portée 
de tous et requiert une technique certaine, 
cette seule particularité n'est pas de nature à 
exclure de la catégorie des oeuvres de l'esprit, 
pas plus que n'en sont exclues, par exemple, les 
compositions musicales qui sont, elles aussi 


exprimées en un langage codé et complexe dont 
la compréhension immédiate suppose une 
éducation spécialisée, que d'ailleurs les pro- 
grammes d'ordinateurs deviennent intelligibles 
par le truchement d'un instrument, l'ordina- 
teur, qui en révèle les possibilités aux non initiés, 
comme la voix ou tout instrument mécanique de 
musique révèle le contenu des partitions musi- 
cales. 

Qu'ensuite l'apport personnel du créateur 
de programmes d'ordinateurs est déterminant 
dans le résultat obtenu, comme peut l'être celui 
du compositeur de musique.» 


La jurisprudence et la loi assimilent donc sans 
aucune contestation le logiciel à une oeuvre de 
l'esprit. Mais il arrive parfois que les informaticiens 
et les éditeurs informatiques protègent leurs 
créations ; les utilisateurs sont donc amenés à 
méconnaître ces protections. 


L'art 41.°2 de la loi du 11 mars 1957 dispose que : 
«Lorsque l'oeuvre a été divulguée, l'auteur ne 
peut interdire: les copies où reproductions 
strictement réservées à l'usage privé du copiste 
et non destinées à une utilisation collective, à 
l'exception des copies des oeuvres d'art destinées 
à des fins identiques à celles pour lesquelles 
l'oeuvre originale a été crée. 


Actuellement la copie d'un programme informati- 
que destiné à un usage personnel et privé, 
comme une sauvegarde du logiciel, est autorisée. 
Par contre si la copie est destinée à un usage 
commercial, si elle est destinée à une utillsa- 
tion collective dans le cadre d'un club infor- 
matique, d'une association ou même d'une 
Université, les pirates s'exposent aux pelnes 
prévues par l'article 422 du code pénal, soit 
une amende de 500 à 200 000 F. et un emprison- 
nement de 3 mois à 3 ans ou de l'une des deux 
peines seulement. 


A.AKKAL 
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Avec les résultats du sondage du numéro 16 de 
TEO, vous allez pouvoir découvrir les autres 
lecteurs (apparemment pas les lectricesl). 

Ce sondage a par ailleurs fait ressortir un certain 
nombre d'attentes que vous avez par rapport à 
TEO. La réponse ne se fait pas attendre : une 
rubrique sur mesure. 

Vous voulez de la télématique : la TEO PROMO 
vous propose de vivre pleinement les relations 
Minitel-Thomson. 

Vous aimez programmer, alors réjouissez-vous 
car voici un éventail de programmes utilitaires et 
de jeux comme vous en retrouverez dans chaque 
numéro. Et pour nous permettre de mieux exploiter 
vos créations, envoyez-nous vos listings en 8cm de 
large; vous en serez récompensés. 
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RESULTATS 
DU SONDAGE 


Grâce à vos réponses au 
sondage publié dans le 
numéro 16 de TEO, nous 
avons pu redécouvrir qui 
vous étiez réellement. 

Dès lors, nous pourrons 
encore mieux répondre à 
vos attentes. 


LA MICRO-INFORMATIQUE 


FAMILIALE EST-ELLE 
MISOGYNE ? 


Apparement, oui ! 94% d'hommes 
contre 6% de femmes nous ont 
répondus. 

La gente masculine semble s'y 
intéresser nettement plus que le 
«beau sexe» ! 


L'ordinateur est-il devenu l'outil 
professionnel perpétué à la 
maison pour devenir un objet 
de loisir et de détente ? Il semble 
que oui, car vos enfants repré- 
sentent 33,7% de scolaires à 
posséder un ordinateur chez eux. 


De père en fils, la science infor- 

matique se transmet du bout des 
doigts, alliant le plaisir à l'éduca- 
tion. 


Le TRAVAIL, C'EST LA 
SANTE 


Adage qui vous convient, puis- 


que un peu moins de 50% d'entre 
vous travaillent dans une entre- 
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prise grande ou petite, ou bien 
comme enseignant. 


Vous avez pour la plupart des 
enfants, d'où votre demande de 
listings plus utilitaires et pédago- 
giques. 


Nous allons y répondre sans tar- 
der. 


Vous préférez TEO à d'autres 
magazines informatiques surtout 
parce qu'il représente THOM- 
SON. En outre, les articles sur 
les compatibles PC vont diminuer 
pour laisser plus de place au 
matériel Thomson. 


TouJours PLUS DE TRUCS 
ET ASTUCES 


Enseignants, écoliers ou salariés 
vous êtes à égalité : en effet, c'est 
la rubrique que vous réclamez en 
priorité ! 


Nous allons donc nous efforcer 
d'augmenter leur nombre dans le 
cahier REPAIRE pour vous facili- 
ter la tâche. 

Vous êtes 88,7% à programmer 
en basic et à recopier des listings. 


Vous les voudriez plus nom- 
breux et mieux testés. Qu'à cela 
ne tienne, nous allons agrandir 
cette rubrique. 


Beaucoup de demandes égale- 


ment pour l'initiation à différents 
langages comme le langage 
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machine, assembleur ou logo. 
Nous avons déjà publié dans nos 
anciens numéros des cours 
d'initiation. Nous allons donc les 
réediter pour vous permettre de 
les découvrir ou de les redécou- 
Vrir. 


Des crmQuss, 
PLUS DE CRITIQUES 


C'est une bouille approbatrice, 
indifférente ou dégoûtée que 
vous verrez apparaître à côté des 
jeux testés. Les critiques vont 
être acerbes mais justes, les 
jeux décortiqués et mis à nus...! 


PLus D'ECHANGES ENTRE 
LECTEURS 


Par le biais du journal — vos 
lettres seront publiées — vous 
pourrez désormais poser des 
questions ouvertes, donner des 
avis et conseils auxquels d'au- 
tres lecteurs pourront répondre. 


TEO est un instrument de dialo- 
gue entre vous. 

C'est aussi dans cet objectif 
que nous continuons les con- 
COUrS : pour que vous puissiez 
participer au journal. 


Le tirage au sort du sondage 
a désigné un gagnant : 
Yann GASCARD. Bravo | 


E O 


OPECIAL 


(LUB 


Dans notre dernier 
numéro nous vous avions 
parlé du club Thomson. 
Cette fois, cette institu— 
tion nous propose des 
promotions pour la gamme 
des Thomson 8 bits (de 
MO5 à TO9+). Pour béné- 
ficier de ces prix li suffit de 
passer votre commande 
directement auprès du 
Club Micro Thomson. 


PROMOS 8 BITS 


L'EXTENSION TELE- 
CHARGEMENT ET LA 
CARTOUCHE TELECHAR- 
GEMENT 


Elle vous permet de transformer 
votre micro en minitel intelligent et 
en couleur (stockage et im— 
pression des pages écran), 
d'accéder à la banque de don- 
nées Thomiel et au télécharge- 


P R O 


ment de logiciels (gratuit), de 
communiquer, à partir de votre 
micro, avec l'un des 550 000 
ordinateurs du parc Thomson en 
France. 

— Le coffret télématique pour 
TO7, TO7-70, TO9 : 300 F + 50 F 
frais de port (Modem + cartou- 
che de téléchargement). 

—Le coffret télématique pour 
MOS5, MOS, TO8 : 490 F + 60F 
pour frais de port (Modem+ 
cartouche-logiciel Télécharge- 
ment + Mégabus Peritek). 

Des contrats utilisateurs pour le 
téléchargement, ainsi que le 
mode d'emploi sont expédiés 
avec le matériel: ils devront être 
retournés pour que le Club puisse 
valider les mots de passe. 


L'EXTENSION NUMERI- 
SATION D'IMAGES 
THOMSON DI 90-011 


Capter dans la mémoire écran de 
l'ordinateur une image provenant 
d'une source vidéo externe (TV, 
magnétoscope), enregistrer ces 
images sur disquette, les modifier, 
les imprimer ou les renvoyer à 
d'autres unités centrales. Pour 
TO8, TO9+ (avec branchement 
direct) et pour TO9 et TO7-7O 
(avec extension manette de jeux 
SX 90-018, à utiliser sous color- 
paint). Prix : 2.800 F + 60 F pour 
frais de port (bientôt disponi- 
ble). 


MICTEL LOGICIELS : 
LES INDISPENSABLES 
DE THOMSON 


M-SERVEUR pour transformer 
votre Thomson en centre serveur. 
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Version TO9 + Prix club : 330 F + 
20F pour frais de port. 
M-BANQUE pour suivre vos 
comptes bancaires. Version TOB, 
TOS9, TO9+. Prix club : 290 F + 20 
F pour frais de port. 

M-COPIE copie d'écran pour 
imprimante 90-600 et 90-612 
avec 4 096 nuances de gris. 
Version TO8, TO9, TO9+. Prix 
club : 150 F + 20 F pour frais de 
port. 


Incrustation vidéo disponible 
sous la référence IN 57001 au 
prix de 250F + 20 F pour frais de 
port. 


PROMO 16 BITS 


L'offre TO16 

A l'occasion du lancement de 
sa gamme de compatibles PC, 
Thomson s'associe à Microsoft 
pour proposer aux acquéreurs 
de TO 16 une réduction excep- 
tionnelle sur l'achat d'un logiciel 
Microsoft ( Multiplan junior, World 
junior, Flight Simulator). Cette 
réduction sera vraisemblable 
ment supérieure à 1 100 F TTC. 
Ceci est valable jusqu'à fin Mai 
avec possibilité de formation gra- 
tuite auprès de certains reven- 
deurs. 

Pour tout renseignement, 
contacter Melle GELE au Club 
Micro Thomson 

Tel: 16 (1) 47.88.5145 


Pour passer vos commandes 
envoyez vos chèques libellés à 
l'ordre du CLUB-COFADEL à 
l'adresse suivante : 


CLUB MICRO THOMSON 


19, avenue Dubonnet 
92400 Courbevoie Cedex 
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POUR RECEVOIR 
CHEZ VOUS 


TOUTE L'ACTUALITÉ DES MICROS THOMSON 


ABONNEZ-VOUS | 


ABONNEZ-VOUS, et nous vous offrons excep- 


tlonnellement ce mols-cl un logiciel à choisir 


parmi la liste sulvante, pour chaque abonnement : 


DK89so: | 


BULLETIN D'ABONNEMENT 

| Non : PRENOM : 
ADRESSE : 

| CODE POSTAL : VILLE : 





1-— MARCHE A L'OMBRE K7 MO6 

2- MINE AUX DIAMANTS K7 56799* DK899: 
3- DOSSIER BOERHAVE K7 56799 DK899: | 
4- ENTROPIE K7 MO6 DK 89 9: 


5- AFFAIRE SYDNEY K7567899 DK899: 


IL VOUS MANQUE D'ANCIENS NUMEROS ? 


Nous pouvons vous aider dans la limite de la dispo- 
nibilite de nos stocks: 


TEOPHILE, ancienne version (au minimum 5 numé- 
ros) 


Numéros disponibles de 5 à 13 : 
1 numéro, 15 francs, précisez le numéro. 


la collection complète, 100 francs. 


Numéros de 1 à 7: 
1 numéro, 20 francs, précisez les numéros. 
7 numéros, 120 francs. 


Numéros de 7 à 14 : 
1 numéro, 20 francs, précisez les numéros. 
7 numéros, 140 francs. 


Participation au frais d'expédition : 


10 francs 
20 francs. 


pour 5 numéros et plus : 
pour la collection complète : 


| Je m'abonne pour 6 numéros à 150 francs et choisis 
| le logiciel numéro : 

| Je m'abonne pour 12 numéros à 300 francs et choisis 
| le logiciel numéro : 

| Précisez la machine que vous utilisez : 


Signature : 
| 


Bulletin à retourner sous enveloppe affranchie avec 
| votre chèque à l'ordre de TEO, à : 

PROMEDIA Service Abonnement, 3 rue des 2 Places, 
| 69009 LYON. TEL : 78 83 84 77. 


Signature des parents : 
(si mineur) : 


NOM : PRENOM : 
[ ADRESSE : 
| CODE POSTAL : VILLE : 





| Je désire recevoir les anciens numéros de TEO que 
| j'ai précisés ci-dessous et vous joins un chèque de + 
I 10 ou 20 francs de frais de port, à l'ordre de TEO,. 


; BON DE COMMANDE ANCIENS NUMEROS 


15F 
120 F 
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Vends QDD sur TO8 : 
TOS ; TOS+. +15 DSK 
double face, pleines de 
jeux dont: vampire, 
Threshold ; le tout 700 
F. Vends Joystick 
«speedking» pour TO8 
TO9 : TO9 +. Acheté 
200 F , vendu 140 F. 
Vends ou échange 
jeux sur TO8/TO9/ 
TO9+ sur DSK 3»1/2 
au prix 20 F pièce" : 
appeler le : 16 (1) 39/ 
52/42/54 après 17 H. 


Vends MO6 + TV sous 
garantie + manette + 
lecteur K7 + emplace- 
ment cartouche + 2 
basics + cordon péritel 
+ revues + manuels + 
simulateurs + jeux + 
animatix. 2 000 F à 
débattre. St Colomban 
40.05.80.89. 





LEFEVRE Emmanuel 7 
ch de Buglise 76290 
MONTIVILLIERS 
vends extension tele- 
matique pour TO7/70 
(MODEM + LOGICIEL) 
300 F. Tél après 18 H 
au 35/30/49/93 





OZILLE André radon 
61250 DAMIGNI 
vends LOGICIEL 
AUTO-INITIATION 
ASSEMBLEUR sur 
DSK 31/2, MO5 com- 
plète-animations et 
séquences commen- 
tées : 230 F 


POIZAT Guy Les Ber- 
nards, la Clastre 26400 
CREST : vends logi- 
cleis sur DSK 3-5 etK7 
pour TO8/TO9/TO9+ : 
envoyer 1 timbre et 
votre adresse (prix 
max. 25 F l'un). 


GIRAUD Frédéric 9 
rue du Hameau 52420 
VAUCRESSON : Tél. 
47/41/96/06 : vends 
clavier électronique 
MUSIC PARTNER 
MS40 prix : 300 F 





O 


SPORTIELLO Gilles 
GFA de  Piegros 
83119 BRUE AURIAC 
cherche correspon- 
dants pôur se préter 
des jeux sur K7 sur 
TO7-70 ; éventuelle- 
ment : SAPHIR, ARKA- 
NOID, SUPERTENIS 


MERLE Jean-Paul 7 
allée Messager 95000 
ENNERY : vends TO7- 
70 + LEP + EXTEN- 
SION MUSIQUE JEU + 
MANETTE + NOM- 
BREUX PROGRAM- 
MES ; prix : 1 600 F 





PRONOST Olivier 
Place de l'Europe 
29221 PLOUESCAT : 
Tél : 98/69/64/06 
vends MOS5 + crayon 
opt. + lecteur K7 + ex- 
tension musique et 
jeux + 2 manettes + 
cables + livres sur 
THOMSON + nbs re- 
vues + 50 logiciels du 
commerce sur K7. 
Acheté en avril 86 pour 
8200 F 





Tél : 71/73/22/56 : 
vends ou échange lo- 
giciels pour TO7-70 
sur K7 ou DSK, CH. 
LES PASSAGERS DU 
VENT 2 ét MEURTRE 
SUR L'ATLANTIQUE 


NIGER David n°1 les 
mouettes, ch. des Fa- 
briques 13500 MARTI- 
GUES: Tél : 42/80/51/ 
52 : vends ouéchange 
Jeux à moitlé prixen K7, 
DSK. cartouches (en- 
voyer liste). Cherche 
BLUE WAR2, BOB 
WINNER.  COBRA, 
KRAK OUT, JAMES 
DEBUG... 


PODOSEK Daniel bd 
Jacques Decour93150 
LEBLANCRESNIL:TéI 
48/79/81/55: vends ur 
TO8 + lecteur de DSK 
31/3, 640 K + un 
crayon opt. + 6 logi- 


clels. Etat neuf sous 
garantie pour 2 600 F 


GRELIER Dominique 
28 rue de la Garenne 
Longèves 85200 FON- 
TENAYLE COMTE : Tél 
51 69 36 60: cherche 
correspondant TO9 . 
échange de Jeux et 
utilitaires de préfé- 
rence. Vends TI994A + 
MODULES 


BUZZARELLO Karine 
l'Allegrerie 38470 VI- 
NAY : Tél 76 36 67 03 : 
Cherche correspon- 
dants pour échanges 
divers de jeux en TO, 


LE Luu Minh Quan 1 
rue Maurice Ravel 
93120 LA COUR- 
NEUVE : Tél : 48 38 13 
23 : vends TO7-70 

+ extension musique et 
jeux+ 2 manettes, ma- 
gnéto TO7-70. caf- 
touche BASIC et AS- 
SEMBLEUR, extension 
16Ko, cartouche TRAP 
pour 2 500 F état neuf 





PAUVERT Franck3rue 
du Port Boulet 49000 
BOUCHEMAINE : Tél 
41 77 10 O2 : vends 
TO8+QDD +SOURIS + 
crayon opt. + COLOR- 
PAINT + STUDIO + 
manettes + de nom- 
breux logicieis (DSK et 
cartouches) prix 2 500 
F à débattre 


OUARI Samir 8 rue de 
la Tréfilerie 93120 LA 
COURNEUVE : Tél : 48 
37 20 00: vends 10 dsk 
31/2 double face 
memorex pour 200 F 
TEL après 18H 


DENIEL Laurent Kervi- 
zin tampaul 29262 
PLOUDALMEZEAU : 
TéL : 98 48 16 76 : 
vends ME MOS : TRI- 
Dl444, GEMINI. MO- 
TUS, MELIMOT 100 F 
l'un et K7 UN MOT 
POUR LE COMPTE, 
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VOL SOLO, SPACE, 
ODIN, PULSAR2, TOP 
CHRONO, MISSION 
RAF :90F. 


HOURS Nil Cartler 
Carsalade Bolsset 
Gaujac 30140 AN- 
DUZE: Tél :6660 9291 
vends ordinateur MO6 
avec : 24 logiciels, une 
manette, un crayon 
opt. prise péritel, 
guide BASIC : état 
neuf 2500 F 
GRUSZCZYK Bruno49 
rue Van Gogh à Cuincy 
59500 DOUAI : Tél : 27 
93 32 48 : recherche 
logiciels sur QDD pour 
TO7-70 








DARTUS Jérome 73 
impasse Printemps 
47000 AGEN : Tél : 53 
96 39 68 : vends pour 
MOS, (TO7-70), nom- 
breux jeux : AIGLE 
D'OR, NUMERO 10, 
ARKANOID, SAPIENS, 
MANDRAGORE, INT, 
JORCERY... pour 60 F 
pièce 


LENNE Patrick 19 rue 
Martial Marigner 78360 
MONTESSON : vends 
ORIC 48K + moni. 
mono. + lecteur K7 +12 
jeux + 6 livres + tous 
cordons. Valeur 4 241 
F. Vendu 3 100 F. 
Acheterai lecteur K7 
pour TO8+. Rep. assu- 
ré. 


HENNART Jean 
Claude 34 rue de Fréjus 
59155 FACHES THU- 
MESNIL : Tél :20 9553 
04 : vends TO9 com- 
plet+ deuxième lecteur 
de disquettes + lecteur 
de cassette + 2 ma- 
nettes de jeux + exten- 
sion + 30 DSK vierges 
3M 3,5P + extension 
télématique + color- 
paint + caractor Il + II- 
vres sur le TO9 + 22 
Téophiles + 80jeux, 80 
utilitaires, 70 educatifs. 


TEORISTE 
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Valeur 16 000 F et + 
vendu 10 000 F 


HAUTEREAU Marilal 
26 rue de Bessancourt 
95480 PIERRELAYE : 
achète LEPTO8 200 F 
SOURIS 200 F, impri- 
mante 80 col 1000F, 
lecteur DSK 31/2, 640 
Ko 1000 F, MICRO- 
TOM n° 1 ‘10F, cher- 
che contacte TOS, 
TOS., TO9+ avec DSK 
51/4, 320 Ko 


HAUTEREAU Martial 
26 RUE DE bESSAN- 
COURT 95480 PIER- 
RELAVE : échange 
loglels TO8 sur DSK 
5,25 uniquement . En- 
voyer vos listes. Vends 
K7 HERITAGE I, NY- 
TROGLYCERINE, ELI- 
MINATOR. _ INDIAN- 
NATHOM. SORTILE- 
GES. 60 F p. achète 
lecteur 3,5 640 Ko, Im 
primante 80 c! 1000F 





VETILLARD Régis 25 
av Gustave Flaubert 
87200 ST JUNIEN : Tél 
55 02 09 26 : ENSEI- 
GNANT ECHANGE 
LOGICIELS UTILITAI- 
RES ET EDUCATIFS 
SUR DSK 51/4 POUR 
TO7-70 

error RE 
GELINEAU PAUL LA 
HUBAUDIERE LA 
CHAPELLE ROUS- 
SEUN 49120 CHE- 
MILLE : TEL : 41 3075 
37 : VDS CONTRO- 
LEUR DE COMMUNI- 
CATIONS CC 90 232 
ETAT NEUF 180 F 


TIRADO FABRICE 10 
ALLEE DU VIEUX 
SAULE 54300 CHAN- 
TEMEUX : TEL8373656 
14: ECHANGE NOM- 
BREUX JEUX SUR TO7 
+ EXT 16Ko (ARKA- 
NOID, SORCERY. GA- 
MEOVER, FORMULE 
1.) 











TEORISTE 


T E O 


VENDS Config. TOS: 
UC{(lect.3"1/) 
+Ext.Mm. (RAM 
DISK) +Modem (cart. 
TELETEL) +IMPR. qual. 
cour. P90600 +doc. 
+uti. 

TEL: (1) 48.43.17.75 


VDS POUR TO7-70 
IMPRIMANTE 40 CO- 
LONNES AVEC IN- 
TÉRFACE ET CABLE 
DELIAISON: RIX800F . 
RECHERCHE QDD 
AVEC INTERFACE 
PRIX RAISONABLE. 
TEL: 41 55 06 44 


ACHETE PRIX RAI- 
SONABLE 1 LECTEUR 
5 P. 1/4 90 070. 1 
BASIC 18 , 1 CON- 
TROLEUR COMMU- 
NICATION ET 1 CON- 
TROLEUR + 1 OÙ 2 
LECTEUR 3 P 1/2 
POUR TO7/70. TEL: 60 
15 50 17 APRES 19H 


VDS ORIGIN K7 : 
ARKANOIÏD(50 F), PO- 
LITIK(40 F), GREEN + 
SU TENNIS + MONOP 
+ RUN(80 F). BEACH + 
WAY OFTIGER +KRA- 
KOUT(70 F) KUNG 
FOU(O F). DIEUX 
STADE 11(50 F). TOU- 
TANKHAMMON(40 
F)... TEL: 95 50 12 32 
(18H) 


CHERCHE MAGNETO 
K7 POUR TO7/70 PRIX 
MAXI : O0 F + ACHETE 
LOGICIELS DK 35. 
TEL: 61 81 70 07 


VENDS QDD (TO7/70. 
MO5. COMPATIBLE 
TO8) AVEC DIs- 
QUETTE (DONT DOS 
T07/70 MO5) + JEUX. 
PRIX 800 F 

TEL: 46 86 08 23 


VENDS TO9 + MONI. 
COU. + L. CART + L. 
DISK + 17 JEUX ORIG. 
+ 0 DISK V + 2 JOYST. 
+ EXT. MANET. + SOU- 
RIS + C.COLORPAINT 
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+ LIVRES + CADEAUX. 
6000 F AU LIEU DE 
8070 F. URGENT 
TEL : 30 99 82 18 


VDS TOS. 1 AN, 
MONITEUR  COU- 
LEUR, EXTANSION 
JEU, CRAYON OPTI- 
QUE,  NOMBREUX 
JEUX (SORCERY- 
T.N.T...). RIX 4000 F (A 
DEBATTRE) 

TEL : 40 06 01 46 


CHERCHE POSS. 
TO9S+ POUR 
ECHANGE. ACHATS 
ET CONTACTS SUR 
DISK 3S POUCES. 
POSSEDE  UTILITAI- 
RES  EDUCATIFS, 
NBRX JEUX. 
ACHETTE DRIVE 3. 
SP. TEL : 48 87 90 33 


ECHANGE JEUX MOS5, 
NBRX JEUX. GREEN 
BERET, ARKANOID ET 
BCP D'AUTRES. 
ALORS ENVOYEZ 
VOS LISTES. VELE- 
NOVSKEY  ALEXAN- 
DRE 83 RUE ANA- 
TOLE FRANCE 10100 
ROMILLY S/SEINE 


CHERCHE POSS. 
TO9 OUTOS8 OUTOS+ 
POUR ECHANGES DE 
PROGRAMMES. RE- 
PONSE ASSUREE. 
LAFON BRUNO 18 BD 
SAINT PIERRE 68000 
COLMAR 


LE CLUB RUNGAMME 
POUR THOMSON 
CHERCHE DES 
ADHERENTS. 5 SER- 
VICES SONT PROPO- 
SES.  DEMANDEZ 
UNE  DOCUMENTA- 
TION GRATUITE 
CONTRE 1 TIMBRE. 
CLUB RUNGAMME 45 
BIS RUE JEAN JAU- 
RES 70200 LURE 

TEL : 84 30 26 96 


RECHERCHE  PER- 
SONNES  POSSE- 
DANT TO8 D AU CLUB 


TEORISTE REGION ST 
NAZAIRE 44, 
TEL : 40 70 81 98 


CHERCHE CARTOU- 
CHE BASIC 1.0 POUR 
THOMSON TO7 

TEL : 35 56 93 90 LE 
SOIR 


URGENT VENDS TO8 
+ LECT. DISK 3"5 + 
CRAY. OPTI. + JOYE- 
RY, SAPIENS... +(EN 
OPTION) MON MO- 
NOCHROME : PRIX : 
3700 F AVEC OPTION 
(GARANTIE AOÛT 88) 
TEL : 73 73 09 50 


VDS T07-70 + LEC- 
TEUR K7 + CONTRO- 
LEUR MUSIQUE ET 
JEUX + 1 MANETTE + 
DIZAINE DE JEUX + 
LIVRES (EMB. ORI- 
GINE). PRIX : 2000 F 
TEL :27 87 5383DE 18 
À 20 H SAUF WEEK 
END 


ACHETE POUR TO9 
IMPRIMANTE PR9061 
M AVEC CABLE + 
LECTEUR DISQ. 320 K 
AVEC CABLE EN BON 


ETAT FAIRE OFFRE. 


INTERESSANTE. TEL : 
90 65 64 08 LE SOIR 
APRES 20 H 


ECHANGE  LOGI- 
CIELS DE MA FABRI- 
CATION OÙ AUTRES 
(TOUS TYPES) POUR 
MOSTEL : 75 70 17 28 


TO7/70 RECHERCHE 
CONTACTS EN K7 OU 
QDD POUR ECHANGE 
DE COPIES 

TEL : 60 844063 


VENDS LOGICIEL OÙ 
ECHANGES 2 JEUX 
THOMSON (TO) : 
(RUNWAY 2 ET SA- 
PHIE) : 250 F OU 
ECHANGE CONTRE 
(GDS PRIX 500 CC ET 
BIVOUAC) DSK 

TEL : 78 58 70 68 
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VENDS TI 99 4A + 
MODULES +MANET- 
TES + MANUELS TO9 
CHERCHE CONTACT 
DANS SA REGION 
POUR ECHANGES 
UTILITAIRES ET JEUX 
TEL :51 693660 85200 
FONTNAY LE COMTE 


VENDS  SYNTHETI- 
SEUR VOCAL TECH- 
NI-MUSIQUE POUR 
TO7-70 + DEMO + 
VOCAGRAPHIC 
(POUR PARAMETRER 
LA VOIX) : 450 F 

TEL : 69 38 54 80 


VENDS CARTOUCHE 
GESTION PRIVEE 
POUR TO7. TO8, TOS9, 
TOS+ PRIX 380 F 

TEL : 25 05 34 32 
APRES 17 H 


VDS TO7-70 + CLA- 
VIER MECANIQUE + 
MEMO 7 BASIC 1.0 + 
ASSEMBLEUR + BA- 
SIC 128 ET EXTEN- 
SION MEMOIRE + 
EXT. MANETTE + 
JEUX + LIVRES + 
COLORPAINT + SYN- 
THETIG + BLITZ LE 
TOUT POUR 3000 F 
TEL 30 99 36 31 


CHERCHE POUR TO7 
CARTOUCHE BLITZ 
(ECHEC) : NAVINER 
GILLES 7 SENTIER 
SOUS LE JARDIN 
93430 VILLETANEUSE 


RECHERCHE  DE- 
SESPEREMENT LE 
JEU  ANDROIDES 
POUR MO5 SUR 
CASSETTE. PRIX 
RESONNABLE POS- 
SIBILITE D'ECHAN- 
GES DE JX (PULSAR : 
SORTILEGE : . 

TEL 87 38 22 % 
APRES 18H 


VENDS OU ECHANGE 
NOMBREUX LOGI- 
CIELS POUR TOS-8 
CASSETTE OÙ DIS- 
KETTE. JOUVE JEAN- 


ANNONCES 


FRANCOIS 10 IM- 
PASSE DES ROUGES 
GORGES 13170 LA 
GAVOTTE 


VENDS  TO7-70 + 
MONITEUR COULEUR 
+ CARTOUCHE DE 
BASIC + EXTENSION 
MANETTE + TRAITE- 
MENT DE FICHIERS + 
CUBE BASIC + JEUX + 
INTERFACE DE 
COMMUNICATION 
3900 F 

TEL : 42 05 98 77 


VENDS TOg+ AVEC 
LOGICIELS. SOURIS 2 
: MANETTES DE JEUX. 
MONITEUR HR ETC... 
PRIX 6000 FRS. 

TEL : (1) 48 26 96 05 


RECHERCHE MEMO7 
(TO7/70) SYNTHETIA 
DE VIFI NATHAN 

TEL 75 93 34 87 


A VENDRE TO7/70 
CLAVIER MECANIUE 
+ CARTOUCHE BASIC 
10 + CONTROLEUR 
D'EXTENSIONS MO- 
DELE 2 + DE NO- 
BREUX JEUX. LE 
TOUT POUR 2000 F 
TEL : 48 21 32 52 
APRES 18 H 


VENDS QDD + CON- 
TROLEUR (SOUS GA- 
RANTIE) 600 F ET 2 
JEUX VAMPIRE ET 
VOL SOLO LES DEUX 
200 F (QD) 

TEL : 99 77 1237 


ATTENTION AFFAIRE 
: VENDS TO7/70, ME- 
CANIQUE, SEPT 86. 
EXC ETAT + BASIC + 
TELE COUL. + EXT 
MANETTES + MA- 
NETTES + 35 K7 PLEI- 
NES DE LOGICIELS + 
BOUQUINS. LE TOUT 
4000 F 

TEL : 29 39 37 87 


CHERCHE POSSES- 
SEURS DE MO5 POUR 
ECHANGER JEUX 


17 E 


(HR) (AIGLE D'OR ; 
KARATE : PULSAR | ; 
5e AXES ETC...) 
TEL 66 78 74 74 


VENDS TO7-70O + 
MONITEUR COULEUR 
+ LECTEUR DE CAS- 
SETTES + MANET- 
TES + 6 JEUX + PLU- 
SIEURS LIVRES : 4000 
F. TEL : 43 75 70 77 


VDS : LEGENDE (DSK) 
ET LA NUIT DES TEM- 
PLIERS + SORCERY 
(DSK) (K7) POUR 200F 
OU CONTRE CHO- 
PLIFTER (EN DSK OU 
CARTOUCHE) ET AU- 
TRES JEUX 

TEL : 46 86 70 49 


VDS DISK POUR TO9 
SORCEY : FRANCE 
EUROPE ; FRANCAIS 
CE : LAS VEGAS ; 
TÉLETEO(MINITEL) 
100 F PIECE 

TEL : 56 05 08 87 


TO9 (DSK) ECHANGE 
- CONTACT POUR 
UTILITAIRE, EDUCA- 
TIF.  NOBECOURT 
JANINE LA GARENNE 
02150 SISSONNE 


CHERCHE CARTOU- 
CHE BASIC 128 ET 
ECHANGES DE PRO- 
GRAMMES _ (TO7/70) 
TEL : 43 32 12 18 


VENDS MOS + LEP + 
17 JEUX ORIGINAUX + 
MANETTES + CRAY. 
OPT. +QDD SANS 
DISC. SYST. + 3 DISC 
VIERGES + LIVRES : 
2000 F TEL 43 00 74 59 


QUI POURRAIT ME 
VENDRE «TRUCS ET 
ASTUCES» DU MOS5/ 
TO7 A BAS PRIX BIEN 
SUR. RECHERCHE 
MODE D'EMPLOI LO- 
GICIELS MELE- 
CHARGE CLUB MI- 
CRO THOMSON 

TEL 86 38 80 18 


O 


DUBOIS ERIC VDS 
MO5 + LECTEUR + 
JEUX+REVUE:1000 F. 
VDS MONITEUR MO- 
NOCHROME : 500 F 
LE TOUT EN TRES.B.E 
ET AVEC CADEAU 
POUR LE 1er ACHAT. 
10 ALLEE DE BELLE- 
DONNE 38610 GIE- 
RES TEL: 76 89 44 95 


JACQUES ANDRE 
CSA ACHAT PC VDS 
TO9+,2 MONIT DATA 
GRADE, IMPRIMANTE 
COURRIER, LECTEUR 
8.5 P, ACCESSOIRES, 
LOGICIELS, JEUX, LI- 
BRAIRIE, REVUE, 
ETC... COLLEGE 
46120 LACAPELLE 
TEL 65 40 82 82 


ADAM ENRICK VDS 
TOS + LECTEUR 3.5 + 
MANETTE + 10 DIS- 
QUETTE + PLUS DE 
70 JEUX 5ARKANOID, 
AQUANAUTE, SA- 
PHIR, MULTIPLAN, 
ETC.) POUR 3000 F/ 
52 RUE HECTOR 
BERLIOZ 93290 
TREMALAY_LES 
GONNESSE 

TEL:48 60 40 81 


JUSTIN  SIEGFRIED 
TAPES VOS LISTING 
SJEUX,  UTILITAI- 
RES...), QUELLE QUE 
SOIT LA LONGUEUR 
ET LA MACHINE 
THOMSON  TELE- 
PHONNER AU 26 66 31 
38 A TOUTES HEU- 
RES POUR SE REN- 
SEIGNER. 


KEINFOUSSIAN HA- 
MID CHERCHE TO9 
(SOUS GARANTIE Si 
POSSIBLE) AVEC OÙ 
SANS LOGICIELS: 
MANETTES ETC... 
AVEC MONITEUR 
COULEUR./CHEMIN 
DES BALITRANS 
ROUMAGNAC 81600 
CAILLAC 

TEL 63 57 1433 


JACQUARD MICHEL 
VDS TO9 AVEC 
MONITEUR COU- 
LEUR ET CRAYON 
OPTIQUE, DOCU- 


MENTATION  COM-. 


PLETE + 14 LOGI- 
CIELS EDUCATIFS 
PRIX 3000F / 13 AVE- 
NUE GUIBERT 78170 
LA CELLE ST CLOUD 
TEL 39 69 06 37 


TROISGROS MONI- 
QUE VDS TO7/70 + 
EXT 64K + EXT MUSI- 
QUE ET JEUX + CONT. 
DISK + 1 MANETTE 
PRIX 2000 F/ LACAN- 
CHE 21230 ARNAY LE 
DUC TEL: 80 84 22 44 


BONFILLOU PATRICE 
VDS TO7/70 + LECT 
CASS +50 JEUX +MA- 
NETTES + REVUE + 
LIVRES LE TOUT : 
1600 F (PORT COM- 
PRIS) 14 RUE 
CLAUDE BERNARD 
89300 JOIGNY 


HELIAS BERTRAND 
VDS POUT TO7/70 ET 
MO5 EN CAS : AN- 
DROIDES ( 120 F ) 
SUPER TENNIS (120 
P,. LA PLANETE IN- 
CONNUE + MICRO 
SCRABBLE (150 F): 
EN DIS 51/4: KARATE 
(120 F) ET EN CASS 
POUR TO7/70 : MAN- 
DRAGORE (120 F) TEL 
APRES  18H/ KER- 
GOSTIG  POULDER- 
GAT 29100 DONAR- 
NENEZ 

TEL : 98 92 36 05 


DAVID LIONEL 
VENDS TO8 + MONI- 
TEUR COULEUR + 
DRIVE 640k + LEC- 
TEUR CASSETTES 
+SOURIES + JOYS- 
TICK + CRAYONOPT + 
5 LOGICIELS DE JEUX 
+ 6 DISQUETTES 
VIERGE LE TOUT EN 
TBE 4500F AULIEUDE 
7000 F/ 7CHEMIN DE 
LA BUTTE O LA REINE 
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91120 PALAISEAU 
TEL : 60 14 11 35 


SIMILLON MICHEL 
VDS TO8 + LECT DISQ 
640 K + CRA OPT + 
MULTIPLAN + FICH 
DOS : 2100 F (DETAIL 
POSS) TEL APRES 
19H/ 21 RUE DR 
VAILLANT 78210 ST 
CYR TEL: 30 58 18 47 


HOIZEY ERWAN VDS 
MO5 + EXTENSION 
DE MELOIRE + 
CRAYON OPTIQUE A 
PRIXEXCEPTIONNEL/ 
118 ALLÉE JULES 
AUFFRET 93320 PA- 
VILLONS SOUS BOIS 
TEL 48 02 00 93 


PESSAUD FLORENT 
VDS TO7/70, LEP, 
MANETTES, BASIC AU 
PRIX DE 2000 F ENVI- 
RONET ACHETE ST + 
JEUX A - DE 2000 F/ 8 
RUE DU VERGER DU 
PARC 38080 L'ISLE 
D'ABEAU 

TEL 79 27 00 31 


LE DUIC YVES VDS 
TO9 + UC 512 K MON 
COULEUR HR 1 DSK 2 
JOYSTICK SOURIE + 
NBREUX LOGICIELS 
(MULTIPLAN + JEUX) 
VENDU 50% VALEUR : 
6000 F TEL 30 62 3380 


JARRY DANIEL RE- 
CHERCHE LECTEUR 
DSK 51/4 POUR TO7/ 
70 PLUS CONTRO- 
LEUR/ 10 CHEMIN 
DES LANDES 49 240 
AVRILLE 


SANCHEZ HERVE 
CHERCHE  LISTING 
INITIATION OÙ JEUX 
POUR MOS / 97 RUE 
DE LA BARRIERE 
19000 TULLE 

TEL 55 26 71 98 


ARNAUT MICHEL VDS 
TO7/70 CLAVIER ME- 
CANIQUE + IMPRI- 
MANTE PR 90-600 + 


TEORISTE 


ANNONCES 


MAGNETO K7 + MA- 
NETTES DE JEU + 
BASIC + ASSEM- 
BLEUR + SCRIPTOR + 
AIRBUS : 3000F ET TV 
THOMSON C25CM: 
2000 F TEL APRES 18H 
/ 68 RUE JULES 
QUESDE 92240 MA- 
LAKOFF 

TEL 47 36 38 06 


DUREL XAVIER VDS 
MO5 THOMSON + 
LECTEUR ENREGIS- 
TREUR DE PRO- 
GRAMMES + CRAYON 
OPTIQUE + 5 OU6 
JEUX 5EDUCATIFS, 
CREATION, AVEN- 
TURE, ARCADE) 1400 
F A DEBATRE/7 BIS 
AV DE LA REPUBLI- 
QUE: 94600 CHOISY 
LEROITEL 48 52 49 88 


LA GARGASSON 
PATRICK EST POS- 
SESSEUR D'UN TO8 
ET CHERCHE CON- 
TACTS POUR 
ACHATS DE LOGI- 
CIELS, JEUX , UTILI- 
TAIRES ET EDUCA- 
TIFS/2RUE DE LADI- 
GUE 68490 CHA- 
LAMPE TEL89262801 


FOUGEROUZEN A. 
CHERCHE  CON- 
TACTS TO9 POUR 
ECHANGE NBREUX 
(UTILITAIRES ET 
JEUX) TELEPHONER 
ENTRE 17H ET 19H/1 
RUE DES ACACIAS 
91220BRETIGNY SUR 
ORGETEL: 60 8421 84 


ADAM DIDIER CHER- 
CHE CONTACTS TO8 
POUR ECHANGES 
SUR DISK OÙ K7 
ECRIRE ET ENVOYER 
VOTRE LISTE. RE- 
PONSE ASSUR2 / 61/ 
32 RUE E. JACQUET 
59000 LILLE 

TEL 20 06 22 48 


MERLE BERTRAND 
VENDS OÙ EGHANGE 
NBX JEUX : BOB 
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Plusieurs centaines de logiciels, livres et accessoires en démonstration permanente 


Lis 


Î 


LIL 


Juvert du lundi au vendredi de 10 h 30 à 13hetde 15hà19h- 





BOUTIQUE PROFESSIONNELLE 
22, rue de Montreuil 94300 VINCENNES - (1) 43.28.0071 1 20, rue de Montreuit 94300 VINCENNES 


le Samedi de 10h30 à 19h 








[ITO16 PC avec moniteur monochrome . 5920 F 


[Ts] Le)ile], EATLS Se, PE eu N à 


Nous consulter 


CITOI6PCXP monochrome … 7935 F 
OITO16 PC XP couleur ..…...................9999 F 


[ITOI6 PC avec moniteur couleur... 8050 F 
Version disque dur (20 MO): [1TO16 PC XP HD monochrome 11845 F — [1TO 16 PC XP HD couleur 14220 F — [1] TO16 P XP HD version E.G.A. 15995 F 





D joystick magnum 


Cicäb.imp.MOS5-T07-70 175F 
Ccôb.im.MO6-TO8-T09 175F 
Qcart. RAM na.-ré. MO5 1290F 
Cctavier mécani. T07-70 595F 
Dcof.télé.(réf.CT98333) 1295F 
Ccontrôleur communica. 365F 


DES BDITES GÉWTES POUR 


RANGER SUPPDBTRy 





© pour disg. 5” 1/4 (100) .. 180 F 
[ pour disg.  3”1/2 (50) 160 F 


0f15 strike eagle 
Dfiches et dossiers 
Olfrançais ce/cm 
Dlfrançais réussite 3e 
Clentropie vs 
O5 strike e 
Clenduro racer 
Clenduro racer . 
Cdéli au tarot 
Cididact eng. orth. gram. 
Ddidact eng. orth. gram. 
Dossier bogrhaave .. 
Dcotorcalc 
Dcolercalc 
Clcolorcalc + 
Ccolorpaint 
Ocolorpaint . 
Ocaractor 2 . 
Ccarré d'as 


… M5-6 
. T8-9+ 


LL. M5-6 


M5-6-7-8-9-9+ 
MB-8-9-9+ 
T8-9-9+ 
T8-9-9+ 
M5-6-7-8-9 
T8-9-9+ 
T8-9-9+ 
T7-8-9-9+ 


!: 17-8-9-9+ 
1 T7-8-8-9+ 











Ocontrôleur manette ... 160F 
crayon aptique ....... 120F 
Clextension imerustation 499F 
Cextension mém. 256 K 1490F 
Dextension mém. 64 K. 995F 
Dexten. mém. 8 K(T07) 545F 


cadeau 
1 joystick 
4 logidels 





SEUR VD 
Ten MS Out SUPER 












KONEENS Ft 


PROMOTION 
C7 legi voc. disg. 3"1/2  195F TOB8D + moniteur couleur 
+ imprimante 
Chousse MO5 ......... 95F 4995 F 
Chousse MO6 ..…..... 95F 
En | croate. 07 
Dihous. T8 + dis & mo 199F TOB8D + monit.mono. ………...8690F 


BOUTIQUE MICRO-FAMILIALE 
-(0 43.28.22.06 


REVENDEUR OFFICIEL THOMSON 









TO 16 PC XP couleur + imprimante STAR NL 10 + 
1 ruban + 10 disq. vierges + 1 boîte rang. disq. + 
1 paquet papier + câble imprim. + word junior + 
multiplan junior + flight simulator . ..... 14940F 


13395F 





OITO16 PCM (modem intég.) mono... 
OITOI6PCM {modem intég.) couleur .…. 9475 F 


housse clavier T9 95F 
Dhousse U.C. T3 120F 
Oh. T8{civ. + UC. + m. 245F 
Climp. okimate 20 3495F 
Climp. thom. PRSO612M 2690 F 
Cinterface RS 232 .... 499F 


a? 


C1 joystick switchjoy ……. 185 F 


Dlecteur disq. QDD .... 850F 
D2e lect. disq. T09 .... 750F 
Cmagnéto. T7-T8-T9 .. 550F 
Omagnétophane M5 ... 550F 
Dlect. disq, 640 K 1350F 
Oseuris T9-T9-M6 ... 350F 


K7 : cassette — D7 : disquette — M: cartouche — QD: disquette QDD — M5: M05 — M6: MO06 — T7 : T07-70 — TB : TOB — T9: TO9 — T9 +: TO9 + 


T8-9-9+ D7 210F 


D7 360F 


199F 
420F 


- M6 
. T8-3+ 
T8-9-9+ 


Dles dieux de la glisse 
Üau temps jadis Des dieux de la glisse 
Deu temps jadis K7 255F OH 

Dau temps jadis K7 255F 
Caux origines de la vie M5-6-7-8-9-9+ K7 195F 
basic 128 7 M7 595F 
Darkenvié . M5-6/17-8-9-9+K7 245F 
COarkanoïd . -8- D7 299F 
Classembleur . 530F 
Dfrançais réussi : 150F 
Dlrançais réussite 5e .…. 150F 
Dlrançais réussite 6e … 150F 
Dgrand prix 500 cc 180F 
Dgrand prix 500 ec . 220F 
Dgraphique 210F 
Cpulsar + yeti + élimi. 160F 
Cpulsar + yeti + élimi. 195F 
Ospindi + bar, + heck. 160F 


M6/T8 
M6/T8/9+ 
T8-9-9+ 

Cmalette création T7-8-9-9+ 

Dmalette gestion .… 

Clmalette prof... 

Dmarche à l'ombre 

Dmarche à l'ombre 

Llmaths succès 4e 

Clmaths succès 5e 

Omaths suctes 6e 

Dmicro scrabble .. 

Clmicro scrabble 








. M5-6/77-8-9/9+K7 
-9-9+ 7 





K7 
D7 
D7 


150F 
199F 


Dirangers 3 ..…. 
Clsac à dos . 
Cisapiens , 
Csapiens . 
Dscalextric . 
[15e ax. + sa, 
05e ax. + sa. mgt 
D silent service 
Dsilent service 
Osiep fight 
Dslap light ..…. 
Oslap light 
Clstatistiques 
super ski. 
Csuper ski . 
Disuper tennis .. 
Dltout schuss .. 
Dltout schuss . 





+ 
+ ei. 


L T8-9-9+ 


Ospindi + bar. + hack. 


M5-6/17-8-9-9+ D7 


budget familial 
Clbudget familial 

Clbian lire vol. 1 cm/3e . 
Cbien lire vol. 2 cm/3e . 
Clbivousc 

Dbivouac 

Cbltz 

Dblitz 

DOblue war Il 





M5-6/T7-6-9-9+K7 


D7 
D7 
D7 
K7 
D? 


M5-T7 K7 
T8-9-9+ D7 
T8-9-9+ D7 


Di était une fois 

Oil était une fois 
Dj'apprends à écrire 
Dj'apprenés à lire 

Djeu de dames améri. 
Djeu de dames améri. T8-9-9+ 
Dleffaire vera cruz .... T8-9-9+ 
[lle soleil et ses planètes T8-9-9+ 
Ole temps d'une histoire T8-9-9+ 


M5-6-/T7-8-9-9+ K7 


T8-9-3+ D7 1 


Cmission en rafale .... 
Clmission en rafale 
[em] 


Dmuitiplan 
Clmusic 3 voix 
Cmusic 3 voix ........ 
Dnitrogl. lucky luke . 
Dnitrogl. lucky luke ..….. 


-9+ D7 
.… M5-6/17-8-9-9+K7 
8-9 D7 


210F 
210F 
190F 
240F 
720F 
160F 
240F 
195F 
K7 165F 
K7 155F 


Dtrivial poursuite 
Dtrivial poursuite 


D7 
K7 
D7 
D7 
Ox-ray 
Dx-ray 


Of + sor. + erka. + lil 
Of1 + ser. + arke, + fil 
Dlvie et mort dinosaures 
Dlvie st mort dinosaures 
Dlvie et mort dinosaures 


.. M5-6/77-8 





bobo ..… 
Datomik 


Dno10 + scrab. + plan. 
paragraphe T 


D7 415F 


Dlyies er kung fu IL . .. 


Ole temps d'une histoire M5-T7 


Dles athètes 
Dles athlètes 


K7 155F 


K7 155F 
M7 515F 





Dlyies ar kung fu il ..…. 


ALI 


A 100 m du RER Vincennes at du Métro Château de Vincennes 





, 








imprimante 40 col... 850F 
Dtapis souris ..,...,... 75F 
Dkit nettoyage 3°1/2 .. 295F 
Dkit nettoyage 54/4 .. 275F 
Csup. monit, orientable . 295F 
COsup. UC. + tir.civ.TO9 595F 
DISQUETTES VIERGES 





D3"1/2 DF-DD par 10 … 
D2”6 - ODD - par 10 


.. T8-9-9+ 
T8-9-9+ 
M5-6/77-8 
M6/T8-9-9+ 


M5-6 
. M5-6/T7-8-9 
T8-9-9+ 
M6/T8-9-9+ 
.… T8-9-9+ 


!!1 T8-9-9+ 


T8-9-9+ 7 
M5-6/T7-8-9-9+K7 
M5-6 K7 
T7-8-9 K7 
T8-9-9+ D7 
M5-6/T7-8-9-9+K7 
K7 
-. M6/18-9-9+  D7 
M5-6/17-8-9-9+K7 
T8-9-9+ D? 


.… 280F 





BON DE COMMANDE : cochez lets) article(s) désiré{s) ou Foïtes une liste sur papier libre. Faites le total + Hrais de port{20 F pour achot inférieur à 500 F, 40 F de 500 F à 1000F, 60 F de 1000 F à 2000 et 80 F pour tout ochot supérieur à 2000 F. 


Je possède : [1] TO7 


NOM 


[1 MOS5 O T07-70 [I TO9 O MO6 CITOB Cl T09“+” 
PRENOM ORDINATEUR ADRESSE 
CODEPOSTAL VILLE 


Mode de paiement : Clchéque / Eimandat/ Dicontreremboursement {prévoir 20 F de frais} - envoyer le tout à: ORDIVIDUEL, 22 rue de Montreuil 94300 VINCENNES 









SHISS BU: 1885 X 


MINITEL 


D... l'esprit de ses in- 


venteurs le téléphone 
devait être le support de 
transmission des opéras. 
Un malentendu ! pour le 
public qui en fait un tout 
autre usage. L'histoire du 


minitel n'est pas identique, 
et pourtant rares sont ceux 


qui voyaient se profiler 
l'ère des messageries, 
nous y compris. 

Ces messageries ont 
certes suscité quelques 
mariages ou rencontres 
fructueuses, mais elles 
bénéficient d'une mau- 
vaise image dans le grand 
public. Parfois «HARD» et 
le plus souvent «ROSES», 
elles sont un point de 
rencontre moderne, pour 
le sociologue, ou une 
décadence des temps dits 
«modernes», pour le 
moraliste. Et pourtant elles 
existent et réalisent même 
50% du trafic kiosque (36- 
15 soit 60 F de l'heure). 
Les campagnes anti-mini- 
tel ont choisi de montrer 
du doigt cet obscur objet 
du désir. 


TELEMATIQUE 


LE SUCCES DU ROSE PASTEL 


IANGEZ VOS CARTES 


QUAND «MIMIS» CHERCHE 
«CALINS» 

Laissons de côté fouet ou marti- 
net, langes et biberons, pour faire 
un tour chez les messageries 
soft; qui sont loin de faire rougir le 
minitel. Le miniteliste n'est pas 
l'obsédé que l'on pense et les 
messageries les plus douces ont 
souvent sa préférence. 

Trois exemples. PLAYBOY, la 
messagerie du magazine, consti- 
tue plus un lieu de dialogue, 
même si la rencontre en est 
l'aboutissement, que l'endroit aux 
milles perversions comme on l'a 
pariois décrit. Les dialogues avec 
la «playmate» restent toujours 
courtois bien que tous les sujets 
soient abordés. 
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CIRCUS, le service des éditions 
de Bandes Dessinées GLENAT, 
possède entre autres rubriques 
une messagerie. Celle-ci s'appa- 
rente aux discussions entre 
passionnés de BD où Mafalda 
recherche Corto Maltese pour lui 
parler de Tintin. 

Enfin MICROTEL, le service de 
notre confrère AM MAG. est 
ouvert aux fondus de micros. Et 
là, les octets s'alignent en mega 
pour remplir disquettes et casset- 
tes. 


MINITEL CHER ? 

Encore aujourd'hui le minitel à 
une autre mauvaise réputation: 
«c'est cher». Et pourtant les 
premiers minitels mis au placard 
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TELEMATIQUE 


sont en train de ressortir. Pour- 
quoi ? 

Simplement cet outil a un coût et 
les premiers utilisateurs l'ont trop 
souvent oublié. Pourtant, les ho-— 
raires SNCF chez soi, poser une 
question ou faire passer une 
petite annonce à son journal pré- 
féré, ou se divertir, n'a jamais 
ruiné la personne avertie et 
raisonnable. Quatre fois moins 
cher qu'une communication 
Lyon-Paris, par exemple, le 
minitel a certes un prix mais pas 
un prix excessif. 

Dernier exemple: le jeu, où le 
minitel est souvent décrié pour 
son coût. Pourtant le succès du 
service TELEMAGO démontre 
qu'il est plus rapide et moins cher 
(1 minute = 1 Franc) de valider 
ses grilles sur minitel. 

La France dispose, avec le 
minitel, d'un outil exceptionnel 
que lui envie le monde entier. Son 
développement tant dans le 
domaine grand public que pro- 
fessionnel est lié à son image. 
Celle-ci ne doit pas être altérée 
par quelques effets pervers (bien 
qu'ils soient souvent pervers- 
pastels.) Le minitel est un nouvel 
outil de communication aux pos- 
sibilités étonnantes qui ne 
demande qu'à vous servir quelles 
que soient vos attentes. 
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BARAKA: ON NE JOUE PAS POUR DES PRUNES! 


pee De QI AE Ta ASE LUE BD Ra Pal ne 


Si vous êtes un passionné de 
jeux et que vous vous promenez 
de temps en temps sur le 36 15, 
vous avez sûrement joué avec 
BARAKA. Du jeune loup à l'avia- 
teur fou, tous cherchent le grand 
frisson sur BARAKA, et pour 
cause: les gagnants se voient 
récompensés . Jugez plutôt: des 
voyages aux Baléares, des 
magnétoscopes, des walkman, 
des bandes dessinées... Pour 
l'instant 10 jeux vous attendent et 
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ils seront bientôt rejoints par deux 
dessins animés. 

Il y a bien sur CRAZY CARS, la 
formule 1 du minitel avec 3 
circuits au choix, depuis Monte- 
Carlo jusqu'à Indianapolis. Plus 
vous accélérez et plus vos con- 
currents arrivent vite, vous ne 
devez relâcher ni votre attention 
ni vos doigts sur le clavier. Si 
vous gagnez le trophée vous 
serez coiffé des «écouteurs de la 
victoire» (les lauriers c'est dépas- 
sé) et puis au moins avec un 
walkman vous ferez un deuxième 
tour de circuit en musique. 

Vous préférez les paysages 
champêtres, soit, mais méfiez 
vous car ils Sont aussi dangereux. 
Pour une fois c'est vous le mé- 
chant: vous êtes le loup affamé 
qui veut tout naturellement s'en- 
voyer un troupeau entier de 
moutons au petit déjeuner. Les 
deux bergers ont tout aussi 
naturellement, une conception 
très différente du petit déjeuner et 


ils vont tout faire pour vous 
empêcher de réaliser le méchoui 
du siècle. Si votre écran montre 
deux bergers dans un pré cher- 
chant désespérement leurs mou- 
tons, alors vous avez gagné et 
peut être qu'une fois aux Baléa- 
res vous deviendrez végétarien... 
Vous êtes le roi des Arkanoïdes 
et autres Break-Out sur votre 
micro, et si vous arrêtiez de jouer 


RER Erin 


 —_— 


PLAUTOR 


pour des prunes: démolissez les 
murs de briques et gagnez des 
télés, des montres... Après tout, 
casseur de brique c'est un métier 
comme un autre sur BARAKA. 
Faites atterrir votre avion et 
gagnez des auto-radios K7, des 
bandes dessinées et d'autres lots, 
facile non ? Le problème c'est 
que votre appareil n'a plus de 
carburant et que vous survolez 
une ville. Alors pas de sentiments: 
larguez des bombes sur les 
immeubles pour ne pas leur 
rentrer dedans plus tard. Un 
conseil: commencez par les plus 
hauts, ce sont ceux que vous 
rencontrerez en premier. Lorsque 
vous aurez tout détruit vous 
pourrez enfin vous poser et 
regarder la suite de vos aventures 
sur votre nouveau magnétos- 
cope. 

Et si vous êtes vraiment un mordu 
d'aviation, faites vous plaisir avec 





FLIGHT SIMULATOR. Pour ta 
première fois sur minitel un jeu 
pour les pros des airs: à vous de 
modifier les paramètres du 
tableau de bord pour vous main- 
tenir en vol et mener à bien votre 
mission. Personnellement j'atten- 
drai d'avoir ma licence pour 
essayer à nouveau ! 


Pierre E. GRANGE 


COMIKS : C'EST DU SERIEUX 


Lorsque l'on habite les hauis 
plateaux d'Ardèche, ce n'est pas 
toujours facile de se procurer 
les derniers logiciels parus. 
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TELEMATIQUE 


Un nouveau service télématique 
de la société Médiaventure va 
vous permettre de conjuguer 
votre passion des Thomson avec 
celle des cigales : 36 15 COMIKS. 
Ce service vous propose dès 
aujourd'hui plus de 150 logiciels 
différents venant d'éditeurs 
prestigieux (ERE, COBRA 
SOFT, INFOGRAMMES..). 

Les possibilités de choix sont 
enrichies par de nombreuses 
offres spéciales (3 logiciels pour 
le prix de 2...). 

Les nouveautés sont immédia- 
tement ajoutées à la liste des 
produits disponibles; mais surtout 
vous pouvez recevoir chez vous 
la liste des nouveautés et leurs 
fiches techniques et ceci dès 
leur parution. Pour ce faire il 
vous suffit de laisser vos 
coordonnées dans la rubrique 
Catalogue. 


Pour commander un logiciel avec 
COMIKS c'est simple, il suffit d'un 
minitel et d'un facteur. Cherchez 
bien, même sur les hauts 

plateaux Ardèchois ça doit se 
trouver. 











EVENEMENT 





(AS 


PREMIER TOME DE LA COLLECTION SPIROU ! 








BOBO est un logiciel dans la 
lignée des jeux style BD, Inspi- 
rés de bandes dessinées 
particulières reprises sous 
forme de Jeux Informatiques. 
Infogrames Inaugure, avec ce 
nouveau logiciel, la coliection 
Splrou, appelée à être poursui- 
vle par d'autres titres prestl- 
gieux qui vous permettront de 
retrouver sur vos écrans d'au- 
tres héros fameux. 


… dans la prison INZEPOCKET, 
BOBO est un forçat brillant par 
ses couleurs mais bien peu par 
sa faculté de s'évader ! 

Depuis 17 ans qu'il végète dans 
la prison INZEPOCKET, il a 





essayé maintes fois de s'en aller 
sans jamais y parvenir... 

Ce personnage sympathique, 
râleur invétéré, forcené de l'éva- 
Sion, vous le connaissez peut 
être déjà pour l'avoir rencontré au 
cours de vos pérégrinations dans 
le monde des bandes dessinées. 
Plus de dix albums relatent en 
effet les aventures de cet affreux 
“jojo” dort le plus grand plaisir 
est de creuser inlassablement 
des trous, des tunnels pour 
s'évader. 


Dans ce logiciel, trois jeux retra- 
cent des épisodes de la vie de 
BOBO et des prisonniers du 
pénitencier INZEPOKET. Chacun 
de ces trois jeux de type arcade 
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demande de l'adresse et de la 
rapidité d'action. 

En attendant donc sa prochaine 
tentative d'évasion, au fil d'un 
scénario-gag et dans un décor 
original, BOBO se soumet d'as- 
sez bonne grâce aux corvées 
journalières. 


Et vous allez l'y aider ! 


Dans le premier jeu, vous devez 
nettoyer une plèce 


Mais la pièce ressemble à un 
véritable carrefour : prisonniers, 
gardiens et même chiens passent 
et repassent sans arrêt par les 
nombreuses portes et souillent 
votre sol. Or le directeur, vous le 
savez, tient à ce que ce soit 
vralment impeccable ! 

Vous n'avez alors que deux 
possibilités : ou vous repoussez 
les intrus ou... vous les suivez, 
armé de votre chiffon pour net- 
toyer sans relâche les traces de 
leurs allées et venues. 

Attention, le gardien surveille 
attentivement vos progrès et vous 
pénalise s'il s'estime insatisfait … 


A vous de faire vite et bien. 

Du courage, vous en aurez 
largement besoin et vous aurez 
ainsi l'occasion de mettre en 
valeur vos dons de ménagère ! 


EVENEMENT 





0 
D 





LE PREMIER RALEUR DE L'INFORMATIQUE ! 








Dans le second jeu, Bobo aide 
ses comparses à s'évader 


Tous ses camarades de cellule 
sautent allègrement de leur 
fenêtre et, pour les aider à passer 
par-dessus le mur d'enceinte de 
la prison, BOBO doit veiller à ce 
qu'ils retombent correctement sur 
un trampoline. S'il échoue, les 
prisonniers recommencent alors 
et, pressés, il arrive qu'ils se pré- 
cipitent et tombent tous en même 
temps... La catastrophe, BOBO 
est bel et bien débordé, mais, 
vous-même, le serez-vous ? 


Toute votre habileté et votre 
vivacité ne seront pas de trop 
pour sauver vos petits camarades 
de l'incarcération... 


Jamais deux sans trois, dit-on... 


Bobo ne s'occupe plus que de 
son propre bonheur dans le 
trolslème jeu 


Incroyable, mais vrai : il s'évade ! 


La clé de sa liberté: une voie 
électrifiée. Alors, il court Bobo, il 
court en équilibre sur les fils élec- 
triques, mais gare aux objets 
électrifiés qui jonchent sa route... 
Saurez-vous lui éviter l'électro— 
cution ? 


Ce n'est pas là une mince af- 
faire. Ouvrez l'oeil et agissez vite, 
il s'agit d'avoir du réflexe ! 


Ce logiciel rassemble donc trois 
jeux simples et marrants. Ils sont 
très courts. Ce qui permet, peut- 
être, d'éviter un ennui rapide et 
qui explique aussi le fait que 
pour rejouer au second ou troi- 
sième jeu, vous devez tout re- 
jouer ! 

Le long temps de chargement 
aiguise la curiosité...si vous jouez 
pour la première fois ! 


Soulignons toutefois un gra- 
phisme dans la tradition de celle 
des «Passagers du Vent, 


"<Jznogoud» ou de «Bob 
Morane» qu'Infogrames a déjà 
édités. Une palette colorée et 
attrayante. Une atmosphère 
drôle, fidèle à celle de la bande 
dessinée. 

C'est là un excellent travall. 


Les jeux, par leur présentation et 
leur simplicité vous changeront 
des jeux complexes et longs. 

Les scénarios à gags et les 
musiques drôlissimes en amuse- 
ront plus d'un... à condition de 
s'armer de patience !.. 


EDITEUR : INFOGRAMES 
PRIX : K7 - 149F 
DK - 199 F 
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TRIBUNE 


VIRUS 


Une nouvelle d'impor- 
tance est tombée sur 
les téléscripteurs : les 
ordinateurs peuvent 
tomber malades. 

La cause ? Un virus 
transmis par des 
disquettes soi-disant 
d'auteurs voulant se 
faire éditer mais en fait 
de pirates en quête de 
nouveaux amusements. 


Rien ne va plus dans la micro- 
informatique où l'on décèle de- 
puis quelques mois l'avancée 
d'une étrange épidémie qui s'at- 
taque aux ordinateurs. Face à ces 
VIRUS, on en vient à regretter le 
temps des pirates qui se conten- 
taient de déplomber les logiciels. 
Certains d'entre eux sont passés 
de la fraude au vandalisme. Ce 
virus, qui a pénétré la France il 
y a six mois, mais que l'on 
commence seulement à dévoi- 
ler, n'a pas de nom. Le seul 
élément d'information que l'on ait 
actuellement, est qu'il peut 
contaminer, à l'infini, tous les 
systèmes informatiques. 

«A l'origine, on s'était plus ou 
moins entendu pour ne pas 
ébruiter l'information», commente 
le directeur du marketing 
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d'Infogrames, Thomas Schmider. 
Mais maintenant, tout a chan- 
gé.. Laurent WEILL, directeur 
de Loriciels, a pris l'initiative de 
parler. Depuis, les deux sociétés 
sont presque les seules à se 
lancer dans une timide contre- 
attaque car c'est dans le 
secteur du jeu que le «mal» aurait 
le plus frappé en France. 


QU'EST-CE QU'UN VIRUS ? 


Dernier jeu en vogue chez les 
pervers de l'informatique. Ce 
sont des petits programmes qui 
prennent le contrôle d'une partie 
de l'ordinateur et altèrent son 
fonctionnement. Ils les perturbent 
en série par transmission d'infor- 
mations néfastes d'un logiciel à 
l'autre, d'une disquette à l'autre 
ou bien d'une machine à l'autre. 
Son appellation n'est donc pas 
usurpée puisque l'on reconnaît 
dans ces modes de program- 
mation ceux d'un virus au 
sens médical du terme. En 
effet, le virus informatique peut 
utiliser n'importe quel type de 
transfert des informations (dis- 
quettes, cassettes, réseau local 
téléphonique ou spécialisé). 
Initialement introduit, il y a 
quelques années dans le 
monde de la mini-informatique 
professionnelle, le fléau vient 
récemment de s’abattre sur la 
micro-informatique. Il a été 
recensé à ce jour avec certitude 
sur les matériels PC et Compati- 
bles, Atari et Amiga mais pas 
encore sur Thomson. Certaines 
machines ont même le privilège 
d'en posséder plusieurs. Qui 
sont les responsables de cette 
expansion dans le monde de la 
micro-informatique ? 

Ce sont des particuliers maîtri- 
sant parfaitement le système 
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d'exploitation de leur micro- 
ordinateur, qui par jeu se sont 
amusés à faire circuler une 
disquette sur laquelle ils avaient 
installé le VIRUS. L'épidémie 
semblerait s'être développée par 
l'intermédiaire des réseaux de 
distribution de disquettes FREE- 
WARE et pirates. 


LES SYMPTOMES 


Avant toute chose, il convient 
de rappeler qu'un virus est lié 
uniquement à un système 
d'exploitation et il est donc 
inenvisageable de voir un virus 
ATARI contaminer un THOM- 
SON. Chaque virus se manifeste 
d'une façon différente en fonc- 
tion de la machine sur laquelle il 
se trouve. 

Quelques exemples précis 
s'imposent: 


VIRUS N°1 : vous bootez votre 
machine sur une disquette 
infectée et voyez apparaître à 
l'écran le message suivant : 
«SOMETHING WONDERFUL HAS 
HAPENED 

YOUR MACHINE IS ALIVE AND 
EVEN BETTER 

SOME OF YOUR DISKS ARE IN- 
FECTED BY A VIRUS 
ANOTHER MASTER PIECE OF 
THE MEGA-MIGHTY SCA» 

A cet instant, un petit bout de 
programme qui se situait sur le 
«boot sector» de la disquette 
vient de se loger en RAM non 
volatile c'est-à-dire qu'il n'est 
pas affecté par le RESET. Dès 
ce moment-là toute nouvelle 
disquette introduite dans la 
machine sera infectée. 

— Même après un RESET 

— même en protégeant sa 
disquette en écriture. 

Attention, le fait de booter une 


disquette et de ne pas voir appa- 
raître le message ne signifie pas 
forcément que la disquette soit 
saine : en effet, ce type de 

virus n'affiche un message 
qu'après s'être reproduit 16 fois : 
ARGHH !!! 


VIRUS N°2 : Prenons le cas de 
l'AMIGA. Alors que vous travaillez 
tranquillement sur votre poste 
depuis 10 minutes, l'écran 
devient uniformément bleu sans 
raison apparente. La machine 
est alors «plantée» puisqu'il est 
impossible de reprendre la main 
(saisie au clavier ou à la souris 
impossible). Si en plus l'ordina- 
teur était en écriture disque au 
moment du «plantage», la dis— 
quette à toutes les chances 
d'être irrécupérable. 


VIRUS N°3 : Un autre type de 
virus moins fréquemment ren- 
contré peut ralentir la vitesse 
d'exécution des applications. le 
phénomène s'accroît jusqu'à un 
arrêt total de l'application sur 
IBM PC et Compatibles. Peut-être 
le plus grave, car de plus en plus 
de personnes utilisent des 
micro-ordinateurs de ce type, de 
plus toute une infrastructure de 
communication s'est établie 
autour de tels appareils. Le virus 
une fois installé s'attaquerait aux 
programmes exécutables en al- 
lant y loger une séquence 
déterminée. 


Infogrames en a recensé six 
actuellement mais pas encore sur 
THOMSON (un grand soupir de 
soulagement vien d'envahir la ré— 
daction !). 


VACCINS 


En fait, il convient de minimiser le 
tapage médiatique qui s'est dé-— 
veloppé autour de ce phéno- 
mène. Ne cédons pas à la pani- 
que, quelques précautions très 
simples permettent d'éviter une 
possible contamination de nos 
ordinateurs THOMSON. En effet 
toute disquette ne provenant pas 
d'un éditeur est à priori suspecte 
et doit faire l'objet de précautions 
particulières ; éteignez votre 
ordinateur après l'utilisation de 
cette disquette (vous ne tuerez 
pas le virus, mais vous l'empé- 
cherez de se reproduire sur vos 
autres disquettes). 

Autre cas de figure : vous avez 
remarqué les symptômes prou- 
vant l'existence du virus : toutes 
vos disquettes risquent d'être in- 
fectées. Pas d'affolement, il faut 
agir. Il existe des programmes 
capables de tester la présence de 
virus sur une disquette (ces 
programmes sont en général 
dans le domaine public). Tes- 
tez toutes vos disquettes à 
l'aide de ce «virus checker». De 
même qu'il existe également 
des programmes capables d'éli- 
miner un virus présent sur une 
disquette. Nous appellerons ces 
programmes «vaccins» OÙ «virus 
killer». Il faut évidemment vacciner 
toutes les disquettes contami- 
nées. Mais la difficulté réside 
dans le fait qu'un vaccin ne 
pourra guérir qu'un type d'ordi- 
nateur. Aussi, les dirigeants 
d'infogrames ont-ils immédiate- 
ment réquisitionné un service 
télématique qui propose aujour— 
d'hui, par le 3615, le service 
chock. qui donne aux particu- 
liers toute information sur les 
virus. Un bref historique des 
épidémies, une description des 
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TRIBUNE 


symptômes, des conseils con- 
cernant les vaccins et les 
méthodes préventives ainsi que 
la possibilité de commander un 
dossier «virus» à la société Info- 
grames, autant d'éléments 
d'information apportés par le 
service chock. Les anxieux et 
les autres peuvent poser les 
questions de leur choix, une ré- 
ponse personnalisée leur sera 
transmise dans les 48 heures. 
En gros, il en est de l'informati- 
que comme de la médecine, le 
plus efficace reste encore la 
prévention. Surtout ne pas intro 
duire dans son ordinateur une 
disquette pirate, prendre l'habi- 
tude d'éteindre l'appareil après 
chaque utilisation de disquette 
(le virus ne sera pas détruit, mais 
au moins il ne sera pas transmis 
aux autres disquettes). Si le mal 
est fait, employer un des vaccins. 
L'apparition de ces virus n'est 
toutefois pas perçu de façon en- 
tièrement négative par les pro- 
fessionnels de l'informatique. 
En effet, la crainte de la mala- 
die incitera peut-être les utili- 
sateurs de logiciels piratés à 
leur préférer des originaux ; 
pour la protection desquels les 
éditeurs investissent beaucoup. 
Revers de la médaille, ces 
efforts influent sur le prix de vente 
(élevé) des logiciels, incitant 
ainsi les pirates à faire des 
copies qui se vendent sous le 
manteau et deviennent autant 
de vendeurs pour une «infec- 
tion». Encore mieux, la société 
Infogrames compte bien déve- 
lopper des «vaccins». Le mar- 
ché ne peut donc que s'accroi- 
tre, puisqu'il faut un vaccin 
spécifique pour chaque nouveau 
virus, et à notre avis l'imagina- 
tion des pervers de l'informatique 
est intarissable... 
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TECHNIQUE 







Est-ce la fin des fameux « nano-réseaux » pourtant bien implantés dans de 
nombreuses écoles et de nombreux clubs informatiques ? En tout cas un 
nouveau type de réseau vient de voir le jour, plus simple et moins cher : le SER-FI 





L'originalité du SER-FI (serveur 
de fichiers): il n'a pas besoin 
d'ordinateur serveur pour fonc- 
tionner. À la place on trouve un 
boîtier appelé séquenceur qui 
gère le réseau en attribuant les 
droits d'accès. Il fonctionne avec 
les MO5, MO6, TO7/70, les TO, 
eton peut en brancher jusqu'à 
8 simultanément. Le séquen- 
ceur est directement raccordé 
aux lecteurs de disquettes. Le 
SER-FI peut fonctionner avec les 
lecteurs de disquettes 5 pouces 
1/4 320K0, ou 3 pouces 1/2 
640K0O ainsi qu'avec les anciens 
lecteurs 5 pouces 1/4 80KO . 
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Chaque utilisateur peut dès lors 
utiliser SOn ordinateur comme si 
celui-ci était relié seul au lecteur 
de disquettes. I| peut charger, 
exécuter, écrire, copier des pro- 
grammes ou des fichiers en toute 
liberté et ceci en basic, en logo. 
ou en utilisant n'importe 
quelle cartouche comme «as— 
sembleur» ou «colorcalc». 

Il n'y a donc aucun logiciel spé- 
cifique à charger dans les machi- 
nes pour utiliser ce réseau. 
Néanmoins il faudra prendre 
certaines précautions : au 
démarrage des TO7/70, si ceux- 
ci sont équipés d'une cartouche 
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«basic 1.0», il faudra cependant 
veiller à ce qu'un DOS BASIC 
TO7 soit présent dans le lecteur 
de disquettes. De la même façon 
avec les MO5 il faudra veiller à 
ce qu'un DOS BASIC MOS5 soit 
présent dans le lecteur de dis- 
quettes à l'allumage des ordi- 
nateurs. Avec les MO6 ou les 
TO7/70 équipés d'une cartou- 
che «basic 128» ce problème 
disparaît puisque le SER-FI 
fonctionne parfaitement avec les 
DOS «basic 128» ou «512» 
contenus en mémoire morte de 
ces machines. 


Le séquenceur répartit donc les 
ordres d'accès aux lecteurs de 
disquettes par un test toutes les 
16 micro-secondes. Ainsi et dans 
l'hypothèse où tous les utilisa- 
teurs demanderaient de charger 
un programme en même temps, 
le dernier servi aurait à attendre 
au maximum 2 à 3 minutes. 





Le réseau peut être dirigé depuis 
le séquenceur qui comporte un 
inverseur permettant à l'ensei- 
gnant ou au responsable d'in- 
terdire provisoirement tout accès 
au lecteur (pendant la durée du 
changement d'une disquette par 
exemple): ou de réserver 
l'accès au lecteur à un seul 
poste (pour un travail sur la 
disquette ne devant pas être 
interrompu par un autre utilisa- 
teur). Cette immobilisation ou 
cette réservation sont visuali- 
sées par l'allumage de diodes 
vertes ou rouges. 

Le SER-FI est livré avec deux 
programmes facilitant son utili- 
sation. Le premier se nomme 
«Menu» et peut être installé en 
«AUTO.BAT» sur chaque dis- 
quette, il permet à l'allumage de 
l'ordinateur de présenter le con- 
tenu de la disquette et de 





permettre à l'utilisateur de choisir 
son programme en le sélection 
nant à l'écran. Un autre pro- 
gramme «Présent.bat» permet de 
créer très simplement ces 
menus en permettant de ranger 
les programmes dans l'ordre 
désiré en leur attribuant un 
commentaire et en le rangeant 
par thème; avec ces outils 
l'utilisation devient extrêmement 
simple. Chaque utilisateur al- 
lume son écran puis son ordi- 
nateur, le programme «Menu» 
en AUTO.BAT se charge après 


il y en a qui vont 
regretter dene 
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vec des logiciels sur la nouvelle 
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micro-informatique. 
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le DOS sur MOS5, après appui 
sur la touche «2» du TO7, de la 
touche «1» du MO6 ou de la 
touche «B» du TO8. Le contenu 
de la disquette est alors affiché 
sur l'écran en plusieurs pages, 
consultables de façon très 
simple, l'utilisateur choisit alors 
son programme et celui-ci 
s'exécute rapidement. Simple 
non ? Le tout est livré avec une 
notice très claire et très complète. 


Les prix: le séquenceur 1575 F 
TTC. L'interface micro-ordinateur 
avec le câble blindé: depuis 799 F 
TTC avec 1,5 m de câble jusqu'à 
1199 F TTC avec 7,5 m de câble 
(5 longueurs possibles). 
S.A. OLIVIER 
MOLE 1 
59140 DUNKERQUE 
TEL : 28.66.08.46 

P.E. GRANGE 
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EDUCATIFS 






FIL nous propose avec 
EUROPE 1992 un jeu 
éducatif destiné à 
apprendre et à tester 
les connaissances 
européennes d'enfants 
à partir de dix ans. CEE 
n'est pas seulement un 
contrôle de connaïissan- 
ces mais aussi une 
véritable méthode 
d'enseignement. Cette 
méthode consiste à 
apprendre aux élèves à 
rechercher les informa- 
tions, à les manipuler puis 
à les trier pour pouvoir les 
utiliser. 


CEE est un logiciel aux multiples 
fonctions parmi lesquelles nous 
citerons: 

- l'acquisition de connaissances 
de base à travers de multiples 
thèmes renforcés par un ques- 
tionnaire, et 

— la possibilité de réaliser et d'im- 
primer des histogrammes et des 
cartes. 
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Le logiciel propose un menu de 
base auquel on peut revenir à 
tout moment. Il est facilement 
maniable même pour un débu- 
tant. Les explications sont claires 
et si letemps de chargement 
paraît un peu long, la qualité 
graphique est loin de laisser à 
désirer. 


Dans la partie Etude et Ques- 
tionnaire, de nombreuses cartes 
européennes colorées apparais— 
sent en se dessinant rapidem-— 
ment et indiquent clairement la 
position de chaque pays euro- 
péen. L'ordinateur chante 
l'hymne européen et dessine 
tous les drapeaux des 12 pays 
membres avec une incontes- 
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table vitesse. Les tests de 
connaissances se font sous 
forme de QCM (questions à choix 
multiples). L'enfant doit répondre 
au moyen d'une seule touche ce 
qui augmente la maniabilité du 
logiciel. 


Pourtant si les connaissances 
de base restent un peu succintes 
et les questions faciles, le 
logiciel offre par contre de larges 
possibilités pour dresser des 
comparaisons de population ou 
de superficie des différents pays 
membres, sous forme de ta- 
bleaux. ll propose aussi à 
l'élève d'éditer son propre 
fichier ou questionnaire. Pour 
l'établir, l'utilisateur devra se 
tourner vers des sources d'in- 
formations plus larges que 
celles de l'ordinateur : atlas, 
dictionnaires, journaux... 


Le logiciel CEE est un super 
outil pour tout écolier qui désire 
se constituer un dossier ou 
entrer des informations indépen- 
dantes au logiciel. Mais pour 
l'enfant qui veut apprendre 
directement du programme 
proposé, le logiciel le laissera un 
peu sur sa faim. 


La disquette est conçue pour 
les TO9, les TO9+ et les TOB: 
son prix reste raisonnable : 195 
Francs. 
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Cevic N ATHAN 


VOUS FORME SUR PC CM2, CEDIC/NATHAN lance 2 culum vitae: «sachant taper à la 
logiciels de formation profession- machine», et pas avec deux 





nelle: CLAVICIEL et ENGLISH doigts... CLAVICIEL est une 
La collection NATHAN écoles, FOR BUSINESS. Ce dernier vous méthode d'apprentissage des 
largement implantée dans les propose pour 590 F un cours claviers AZERTY et QWERTY. 
écoles françaises est maintenant d'anglais commercial (thème/ Il comprend 19 séquences de 
disponible sur PC. Depuis les version), des bilans personnalisés 20 à 30 minutes pouvant être 
cours de maths pour classes de et même un dictionnaire de 3000  interrompues à tout moment. 
CP/CE1 (calcul mental...) mots. Pour l'accent, une cassette Il corrige automatiquement les 
jusqu'aux maths de CM2 avec audio reprend les textes des fautes. Le prix de cette auto- 
des calculs de volumes et de versions. Pour une fois le niveau formation: 1850 F (3 disquettes), 
périmètres. Le prix de la dis- est assez élevé: classes prépara- tout de même moins cher qu'un 
quette contenant 50 exercices: toires et BTS commerciaux. BTS de secrétariat. 
245 F. CLAVICIEL vous permettra 


Et pour ceux qui ne sont plus en d'ajouter un plus sur votre curri- Pierre E. GRANGE 
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chercher. On trouve des logiciels d'aide à la rédaction de contes, de 


[ u côté de chez Carraz Éditions, on ne perd pas son temps à 
narrations, de récits historiques … et de grammaire. 
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20, bis rue Godefroy 69006 LYON. Tél.: 78 24 10 31 


LOGICIELS 


J'APPRENDS 
À ECRIRE 


Destinée aux 6-8 ans, cette dis- 
quette vous propose de visualiser 
des lettres et des mots en minus- 
cules et majuscules que votre 
enfant a choisi d'écrire. 

Le graphisme plein de gaieté atti- 
rera son attention sur la formation 
de chaque lettre. Un laps de 
temps assez long entre la com-— 
mande du mot et son inscription 
sur écran permet à l'élève d'écrire 
son mot sur une feuille pour 
pouvoir ensuite comparer les 
deux écritures : la sienne avec 
celle de l'écran. C'est un travail 
qui demande force de concentra- 
tion à l'enfant que le manque de 
musique ou l'absence de fioritu- 
res dans le graphisme n'est pas 
prêt de déranger. Une disquette 
donc, certes intéressante pour 
son intelect mais peut-être pas 
assez encourageante. 

Prix: 149,90 francs. 

Editeur : NATHAN. 








Six jeux d'aventures à chaque fois 
différentes. 

Vous vous retrouverez au Paris- 
Dakar dans «Cap sur Dakar» où il 
vous faudra gagner vos sponsors 
et choisir votre véhicule. Mais 
pour espérer gagner, prenez 
garde à la rapidité de vos 
concurrents..c'est un jeu de 
longue haleine .… 

Si vous préférez les combats 
entre hommes ou entre robots, 
alors vous vous délecterez avec 
Duel 2000. Le seul problème : 
l'ordinateur réagit moins vite à 
vos ordres que votre main à votre 
cerveau … vous perdrez souvent. 
Jeu d'adresse et de revolver, 
Fantôme City, notre troisième jeu, 
est amusant et simple. C'est avec 
une musique Western comme 
arrière-fond sonore que vous 
gagnerez argent et prestige en 
tuant un maximum d'adversaires. 
La Malédiction du Thaar. Un jeu 
particulièrement bien dessiné 
mais aussi très compliqué. Jeu 
d'aventure où le jeune héros, 
vous, recherche sa douce et 
captive sirène. Moult obstacles 
vous barrent la route mais vous 
vous aidez d'armes et de ca- 
deaux trouvés sur votre chemin. 
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Pour atteindre votre séduisante 4 
dulcinée, il vous faudra être 
particulièrement amoureux... . 
Dans notre quatrième jeu, James L 
Debug s’aventure sur une île 
perdue où il doit rassembler les 
morceaux d'un magnétophone 
qui dénoncera la traitrise envers 
toute l'humanité d'une grande 
puissance de ce monde. 

Le mystère de l'île perdue épuise 
cependant les forces du héros et 
son temps est compté... 

Jeu facile qui manque peut-être 
d'un peu d'imagination. 
Opération NEMO est un combat 
militaire très classique. À vous de 
défendre votre patrie avec votre 
bateau en tenant compte du 
nombre de vivres, de marins et 
d'armes dont vous avez besoin. 
Le dernier jeu de Golden 7 : le 
Grand Saut. C'est une répétition 
de James Debug dans le gra- 
phisme et dans la logique du jeu. 
Rien de très novateur. 


En conclusion, Golden 7 propose 
un délassement sans prétention. 
La difficulté des jeux est réglable 
à votre niveau. 


Prix : 149 frans. 
Editeur : COKTAIL VISION. 





LOGICIELS 





Ce logiciel est une simulation de 
stratégie d'entreprise: il peut se 
jouer seul (contre l'ordinateur) 
ou à 2 (vous et ce cher Hubert) et 
jusqu'à 6 joueurs. Pour charger 
le jeu, contrairement à ce qui est 
indiqué dans le manuel, il faut 
taper Run «loader» sous basic 
128, puis entrer le nombre de 


joueurs, votre niveau (Hubert 
choisira sûrement «expert») et 
enfin le nom de votre entreprise. 
Puis vous intervenez sur l'envi- 
ronnement économique : le mar- 
ché et l'inflation. Vous pouvez 
donc choisir un marché en 
croissance exponentielle ou en 
récession dramatique, de même 
qu'une inflation galopante ou 
stable... Vous devez aussi choi- 
sir la sensibilité du marché face à 
certaines données (l'impact de la 
publicité, facteurs d'innovation... 
C'est alors que vous tournant 
vers Hubert vous lui lancez « à 
vous de jouer mon cher». 

Le brillant Hubert devra alors 
décider d'augmenter ou non le 
salaire de ses commerciaux, de 
ses techniciens, d'embaucher du 
personnel où d'investir dans les 


+ 


machines ; tout en jonglant avec 
sa trésorerie. || devra aussi 
prendre des décisions dans les 
domaines du marketing (publici- 
té, prix de vente...) de la compta- 
bilité (emprunts, placements...) 
Des graphiques vous présentent 
le bilan de la période écoulée : 
les ventes, la part de marché, 
le cours de vos actions et bien 
d'autres informations que vous 
pouvez d'ailleurs sortir sur impri- 
mante pour mieux les analyser. 
Appuyez sur suite et passez à la 
période suivante (une période = 
6 mois). Au bout de quelques 
périodes votre entreprise «Pirate 
rie SA» rachète la sienne «Savoir 
et puissance» car il ne s'est pas 
aperçu que, petit à petit, vous 
aviez racheté des actions de son 
entreprise jusqu'à en détenir 


inq logiciels dans un sac à dos ! C’est un grand cadeau 
intelligent pour des petits enfants intelligents. 
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NOIR OUTE 


Au fond de la galaxie 
rägna ia cruelle Gremla, 
souveraine fyranique et incontestée. 
Serez-vous assez téméralre pour 
l'affronter? Attention Gremla est très 
habile et ses stratégles sont mortelles 


SFA ICT IE 

Vous êtes pllote‘d'un super avion le 
Slaptfighter! Des mondes très 
habiles vous guettent sur la planète 
Orac. Déiruisez-les, 


ANBUNeR ee 


Couché sur le guldon, debout sur 


ele [ple (= 






la raue arrière vous trouvez le 
désert. La piste s'ouvre devant vous, 
l'aventure commence. 


Le ACUUNE 


C'est un film, c'est aussi un jeu où 
vous êtes le plus casse-cou des 
pllotes de la Navy américaine. 
Abattez et descendez vos ennemis 


HANIAC7, 12] 


New York! Du métro au ghetto la 
violence est partout, Défiez ies 
méchanis et soyez ie renégade 
cruel et impitoyable. Chaque 
seconde de survie est une victoirel 


FRANCE IMAGE LOGICIEL 


La assion des défis 











PAST NES 


Un monde noir et triste, c'est 

la planète de l'abominable Zark. 
Passez à la conquête de la couleur 
et peignez la planète aux couleurs 
de la vie, avec la balle magique. 


FLASH POINT : 


La troisième guerre mondiale est 
déclarée. L'Ouest et l'Est s'affrontent 
dans un conflit super-mortel. 
Canons, lasers, stratégie. C'est la 
guerre, gagnez-lal 
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* Prix public généralement constolé. 
Thomson MO-TO. Cassette ou disquelte. 


51% . Et de concluer triomphant: 
« Et encore, la réalité est bien 
plus complexe...». En fait, ce 
logiciel est plus une initiation 
à la gestion d'entreprise qu'un 
réel test d'aptitude à diriger. Tous 
les phénomènes sont simplifiés 
de façon à être accessibles aux 
futurs dirigeants dès 12 ans. Et 
malgré tout votre cousin Hubert a 
plus de chances de savoir diriger 
une entreprise en faisant H.E.C. 
que vous avec ce logiciel. 





Si votre enfant éprouve des diffi- 
cultés à assimiler l'allemand, 
Nathan l'aidera d'une manière 
ludique et encourageante. Ici ce 
sont les négations et les pronoms 
personnels qui sont étudiés : 
l'élève complète une phrase, s'il 
commet une erreur, l'écran 
l'explique aussitôt en affichant 
une règle grammaticale. S'il 
répond correctement, une petite 
musique le félicite. La disquette 
est accompagnée d'un livret qui 
explique la manipulation de l'ordi- 
nateur et le contenu du pro- 
gramme. 

Prix : 225 francs. 

Editeur : NATHAN. 





Réflexion et concentration … et 
Vous y arriverez ! 

En effet, le programme de fran- 
çais de Nathan aide l'enfant à 
mémoriser la subtilité de l'ortho- 
graphe et de la grammaire fran- 
çaises. 

Le menu vous propose une série 
de 6 domaines grammaticaux. 
Citons par exemple, les accords 
du participe passé, les pronoms 
relatifs ou encore le pluriel de 
nom et de l'adjectif. Chaque 
partie propose des phrases, des 
mots ou des tableaux incomplets 
que l'enfant remplit. Au fur et à 
mesure des réponses justes ou 
fausses de l'élève, la règle gram- 
maticale correspondante s'affi- 
che. S'il répète une erreur, l'expli- 
cation apparaît de nouveau. 

Le programme est aisé à utiliser 
et un enfant de 12 ans s'y 
retrouve très bien. 

Nathan fait preuve de beaucoup 
de pédagogie avec cette dis- 
quette. Les résultat quant aux 
progrès de l'élève sont certaine- 
ment garantis. 


Prix : 149,90 francs. 
Editeur : NATHAN. 
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Vous adorez jouer au tarot mais il 
faut être quatre..Alors en attendant 
que votre petit dernier (qui n'a que 
8 mois) arrive à tenir ses cartes 
dans sa petite main, pensez au 
logiciel «Défi au Tarot». Un logiciel 
remarquable car, pour une fois, le 
jeu s'y prête et ne perd rien sur or- 
dinateur, au contraire. L'ordinateur 
ne vous laissera pas tricher, ne 
rougira pas quand vous irez à «la 
chasse au petit»; et il cache bien 
son jeu. Votre jeu s'étale surletapis 
vert et vous sélectionnez la carte 
que vous jouez à l'aide des flèches. 
Et si vous ne savez pas encore 
jouer, vous apprendrez en quel- 
ques minutes grâce aux règles qui 
sont incorporées. 

Défi au Tarot, COCKTEL VISION 
TO8-TO8D-TOI-TO9+ : 195 F, 
PC : 220F. 


Pierre E. GRANGE 
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